ibis/src/Main.hs

24 lines
507 B
Haskell
Raw Normal View History

2019-01-29 22:55:45 +00:00
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)