module Util where import qualified SDL import Options.Applicative -- internal imports import Types glWindowConfig :: SDL.WindowConfig glWindowConfig = SDL.defaultWindow { SDL.windowOpenGL = Just SDL.defaultOpenGL { SDL.glProfile = SDL.Core SDL.Normal 3 3 } } options :: Parser Options options = Options <$> switch ( long "fullscreen" <> short 'f' <> help "Toggle fullscreen" <> showDefault ) <*> switch ( long "flip" <> short 'p' <> help "Flip screens" <> showDefault ) <*> argument str ( help "Input file" <> metavar "FILE" )