Permalink
Browse files

Main: export only 'main' (eases catching dead code)

Signed-off-by: Sergei Trofimovich <slyfox@gentoo.org>
  • Loading branch information...
1 parent 6dd39d0 commit bea03d5a20d615b8830b39d64175388b17e9f0a5 @trofi trofi committed Jun 28, 2012
Showing with 1 addition and 6 deletions.
  1. +1 −6 Main.hs
View
@@ -7,7 +7,7 @@
The executable module of haskell-updater, which finds Haskell
packages to rebuild after a dep upgrade or a GHC upgrade.
-}
-module Main where
+module Main (main) where
import Distribution.Gentoo.GHC
import Distribution.Gentoo.Packages
@@ -215,11 +215,6 @@ help = progInfo >>= success
version :: IO a
version = fmap (++ '-' : showVersion Paths.version) getProgName >>= success
-err :: String -> IO a
-err msg = liftM addMsg progInfo >>= die
- where
- addMsg str = msg ++ "\n\n"++ str
-
progInfo :: IO String
progInfo = do pName <- getProgName
return $ usageInfo (header pName) options

0 comments on commit bea03d5

Please sign in to comment.