36 lines
603 B
Haskell
36 lines
603 B
Haskell
|
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"
|
||
|
)
|