From 6bac8424727106b2d3a5f7c0649c832ba0209aa4 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Wed, 1 Apr 2015 16:59:58 +0300
Subject: [PATCH] Support for --summary (pinging @DanBurton)

---
 app/main.hs | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

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)