diff --git a/app/main.hs b/app/main.hs index 35cc468..8712dbf 100644 --- a/app/main.hs +++ b/app/main.hs @@ -1,9 +1,13 @@ import Application (makeApplication) -import Prelude (IO) -import Prelude (Bool(..)) +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 = defaultMainLog (fromArgs parseExtra) (makeApplication False) +main = do + args <- getArgs + if "--summary" `elem` args + then putStrLn "Run the server software for www.stackage.org" + else defaultMainLog (fromArgs parseExtra) (makeApplication False)