usage hack.
This commit is contained in:
parent
691ff79d2c
commit
743146f901
@ -16,7 +16,7 @@ import Text.ParserCombinators.Parsec
|
|||||||
----------------------------------------------------------------
|
----------------------------------------------------------------
|
||||||
|
|
||||||
usage :: String
|
usage :: String
|
||||||
usage = "ghc-mod putStrLn version 0.1.0\n"
|
usage = "ghc-mod version 0.1.0\n"
|
||||||
++ "Usage:\n"
|
++ "Usage:\n"
|
||||||
++ "\t ghc-mod list\n"
|
++ "\t ghc-mod list\n"
|
||||||
++ "\t ghc-mod browse <module>\n"
|
++ "\t ghc-mod browse <module>\n"
|
||||||
@ -57,8 +57,7 @@ main = flip catch handler $ do
|
|||||||
putStr $ transform $ nub $ sort $ ll
|
putStr $ transform $ nub $ sort $ ll
|
||||||
where
|
where
|
||||||
handler :: ErrorCall -> IO ()
|
handler :: ErrorCall -> IO ()
|
||||||
-- handler _ = print usage
|
handler _ = putStrLn usage
|
||||||
handler e = print e
|
|
||||||
|
|
||||||
----------------------------------------------------------------
|
----------------------------------------------------------------
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user