Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Main: cleanup: switched from multiline string to 'unlines'

Signed-off-by: Sergei Trofimovich <slyfox@gentoo.org>
  • Loading branch information...
commit a9ea29d64c9fef088ef42ece36020f3f17e9ce74 1 parent f5725fe
@trofi trofi authored
Showing with 9 additions and 9 deletions.
  1. +9 −9 Main.hs
View
18 Main.hs
@@ -218,15 +218,15 @@ progInfo :: IO String
progInfo = do pName <- getProgName
return $ usageInfo (header pName) options
where
- header pName = pName ++ " -- Find and rebuild packages broken due to either:\n\
- \ * GHC upgrade\n\
- \ * Haskell dependency upgrade\n\
- \ Default action is to do both.\n\
- \\n\
- \Usage: " ++ pName ++ " [Options [-- [PM options]]\n\
- \\n\
- \\n\
- \Options:"
+ header pName = unlines [ pName ++ " -- Find and rebuild packages broken due to either:"
+ , " * GHC upgrade"
+ , " * Haskell dependency upgrade"
+ , " Default action is to do both."
+ , ""
+ , "Usage: " ++ pName ++ " [Options [-- [PM options]]"
+ , ""
+ , ""
+ , "Options:"]
systemInfo :: RunModifier -> IO ()
systemInfo rm = do ver <- ghcVersion
Please sign in to comment.
Something went wrong with that request. Please try again.