haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-02-04 23:30:27 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Support for --summary (pinging @DanBurton)

Browse Source
This commit is contained in:
Michael Snoyman 2015-04-01 16:59:58 +03:00
parent 30b6d57f5c
commit 6bac842472
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
app/main.hs
View File

@ -1,9 +1,13 @@
import Application (makeApplication) import Application (makeApplication)
import Prelude (IO) import Prelude (Bool(..), IO, elem, putStrLn)
import Prelude (Bool(..))
import Settings (parseExtra) import Settings (parseExtra)
import Yesod.Default.Config (fromArgs) import Yesod.Default.Config (fromArgs)
import Yesod.Default.Main (defaultMainLog) import Yesod.Default.Main (defaultMainLog)
import System.Environment (getArgs)
main :: IO () 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)