import Application (makeApplication)
import Prelude (IO)
import Prelude (Bool(..))
import Settings (parseExtra)
import Yesod.Default.Config (fromArgs)
import Yesod.Default.Main (defaultMainLog)

main :: IO ()
main = defaultMainLog (fromArgs parseExtra) (makeApplication False)

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 www.stackage.org"
        else defaultMainLog (fromArgs parseExtra) (makeApplication False)

Support for --summary (pinging @DanBurton)
Support for --summary (pinging @DanBurton)
