From 7fd7b3636391e7b8b4da6a8cfc49d02a5766d916 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Niklas=20Hamb=C3=BCchen?= <mail@nh2.me>
Date: Fri, 23 Aug 2013 11:30:25 +0900
Subject: [PATCH] Implement help command as advertised in usage

---
 src/GHCMod.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/GHCMod.hs b/src/GHCMod.hs
index e6ef000..80bcdf3 100644
--- a/src/GHCMod.hs
+++ b/src/GHCMod.hs
@@ -111,6 +111,7 @@ main = flip catches handlers $ do
          flags <- listFlags opt
          pre   <- concat <$> mapM (browseModule opt) preBrowsedModules
          return $ mods ++ langs ++ flags ++ pre
+      "help"   -> return $ usageInfo usage argspec
       cmd      -> throw (NoSuchCommand cmd)
     putStr res
   where