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)