usage hack.

This commit is contained in:
Kazu Yamamoto 2010-03-10 18:23:48 +09:00
parent 691ff79d2c
commit 743146f901

View File

@ -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
----------------------------------------------------------------