From 743146f9012db2fd7bd1712e30ca13bae77a52d1 Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Wed, 10 Mar 2010 18:23:48 +0900
Subject: [PATCH] usage hack.

---
 GHCMod.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/GHCMod.hs b/GHCMod.hs
index 72e88c2..73f1369 100644
--- a/GHCMod.hs
+++ b/GHCMod.hs
@@ -16,7 +16,7 @@ import Text.ParserCombinators.Parsec
 ----------------------------------------------------------------
 
 usage :: String
-usage =    "ghc-mod putStrLn version 0.1.0\n"
+usage =    "ghc-mod version 0.1.0\n"
         ++ "Usage:\n"
         ++ "\t ghc-mod list\n"
         ++ "\t ghc-mod browse <module>\n"
@@ -57,8 +57,7 @@ main = flip catch handler $ do
     putStr $ transform $ nub $ sort $ ll
   where
     handler :: ErrorCall -> IO ()
---    handler _ = print usage
-    handler e = print e
+    handler _ = putStrLn usage
 
 ----------------------------------------------------------------