24 lines
507 B
Haskell
24 lines
507 B
Haskell
|
module Main where
|
||
|
|
||
|
import qualified SDL
|
||
|
|
||
|
import Linear
|
||
|
|
||
|
import Options.Applicative
|
||
|
|
||
|
-- internal imports
|
||
|
|
||
|
import Util
|
||
|
|
||
|
main :: IO ()
|
||
|
main = do
|
||
|
opts <- execParser $ info (options <**> helper)
|
||
|
( fullDesc
|
||
|
<> progDesc "A simple PDF presenter written in Haskell using poppler and SDL2"
|
||
|
)
|
||
|
SDL.initializeAll
|
||
|
SDL.screenSaverEnabled SDL.$= False
|
||
|
disps <- SDL.getDisplays
|
||
|
putStrLn ("number of displays detected: " ++ show (length disps))
|
||
|
putStrLn ("Passed command line options: " ++ show opts)
|