module Types where data Options = Options { optFullScreen :: Bool , optFlipScreens :: Bool , optFile :: String } deriving (Show)