2019-01-29 22:55:45 +00:00
|
|
|
module Types where
|
|
|
|
|
|
2019-01-30 22:10:00 +00:00
|
|
|
import qualified Data.Text as T
|
|
|
|
|
|
2019-01-29 22:55:45 +00:00
|
|
|
data Options = Options
|
2019-01-30 22:10:00 +00:00
|
|
|
{ optFullscreen :: Bool
|
2019-01-29 22:55:45 +00:00
|
|
|
, optFlipScreens :: Bool
|
2019-01-30 22:10:00 +00:00
|
|
|
, optFile :: T.Text
|
2019-01-29 22:55:45 +00:00
|
|
|
}
|
|
|
|
|
deriving (Show)
|
