You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

14 lines
449 B

import Application (makeApplication)
import Prelude (Bool(..), IO, elem, putStrLn)
import Settings (parseExtra)
import Yesod.Default.Config (fromArgs)
import Yesod.Default.Main (defaultMainLog)
import System.Environment (getArgs)
main :: IO ()
main = do
args <- getArgs
if "--summary" `elem` args
then putStrLn "Run the server software for"
else defaultMainLog (fromArgs parseExtra) (makeApplication False)