src/Worksheets/Utils/Paper.hs

   1 module Worksheets.Utils.Paper where
   2
   3 import Worksheets.Utils.Prelude
   4
   5 data PageSize
   6   = PageSizeA5
   7   | PageSizeA4
   8   | PageSizeA4Plus
   9   | PageSizeA3
  10   deriving (Eq, Ord, Show, Generic)
  11 instance HasTypeDefault PageSize where
  12   typeDefault = PageSizeA4
  13
  14 data PageOrientation
  15   = PageOrientationPortrait
  16   | PageOrientationLandscape
  17   deriving (Eq, Ord, Show, Generic)
  18 instance HasTypeDefault PageOrientation where
  19   typeDefault = PageOrientationLandscape