never executed always true always false

    1 module Reanimate.Constants
    2   ( screenWidth
    3   , screenHeight
    4   , screenTop
    5   , screenBottom
    6   , screenLeft
    7   , screenRight
    8   , defaultDPI
    9   , defaultStrokeWidth
   10   ) where
   11 
   12 import           Graphics.SvgTree
   13 
   14 screenWidth, screenHeight, screenTop :: Fractional a => a
   15 screenBottom, screenLeft, screenRight :: Fractional a => a
   16 
   17 screenWidth = 16
   18 screenHeight = 9
   19 screenTop = screenHeight/2
   20 screenBottom = -screenHeight/2
   21 screenLeft = -screenWidth/2
   22 screenRight = screenWidth/2
   23 
   24 defaultDPI :: Dpi
   25 defaultDPI = 96
   26 
   27 defaultStrokeWidth :: Double
   28 defaultStrokeWidth = 0.05