usage hack.

This commit is contained in:
Kazu Yamamoto 2010-03-10 18:31:07 +09:00
parent a095734955
commit 5e7c7aa87d

View File

@ -57,7 +57,7 @@ main = flip catch handler $ do
putStr $ transform $ nub $ sort $ ll
where
handler :: ErrorCall -> IO ()
handler _ = putStrLn usage
handler _ = putStr usage
----------------------------------------------------------------