Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Clean up message printing for blank line usage

  • Loading branch information...
commit f2ea49864028aa41756ba0e96e1f35d343c043f8 1 parent 18b35a5
@ivan-m ivan-m authored
Showing with 5 additions and 3 deletions.
  1. +4 −3 Distribution/Gentoo/GHC.hs
  2. +1 −0  Main.hs
View
7 Distribution/Gentoo/GHC.hs
@@ -90,10 +90,11 @@ confFiles dir = do let gDir = dir </> "gentoo"
pkgListPrint :: String -> [Package] -> IO ()
pkgListPrint desc pkgs
= if null pkgs
- then putStrLn $ unwords ["No", desc, "packages found!"]
+ then putStrLn $ unwords ["No", desc, "packages found!\n"]
else do putStrLn $ unwords ["Found the following"
, desc, "packages:"]
printList printPkg pkgs
+ putStrLn ""
-- Print a bullet list of values with one value per line.
printList :: (a -> String) -> [a] -> IO ()
@@ -106,7 +107,7 @@ tryMaybe f a = maybe (Left a) Right $ f a
-- Finding packages installed with other versions of GHC
oldGhcPkgs :: IO [Package]
-oldGhcPkgs = do putStrLn "\nSearching for packages installed with a \
+oldGhcPkgs = do putStrLn "Searching for packages installed with a \
\different version of GHC."
thisGhc <- ghcLibDir
let thisGhc' = BS.pack thisGhc
@@ -159,7 +160,7 @@ libFronts = map BS.pack
-- Finding broken packages in this install of GHC.
brokenPkgs :: IO [Package]
-brokenPkgs = do putStrLn "\nSearching Haskell libraries with broken dependencies."
+brokenPkgs = do putStrLn "Searching for Haskell libraries with broken dependencies."
(pns, cnfs) <- brokenConfs
unless (null pns)
$ unknownPackages pns
View
1  Main.hs
@@ -228,6 +228,7 @@ systemInfo = do ver <- ghcVersion
putStrLn $ "Running " ++ pName ++ " using GHC " ++ ver
putStrLn $ " * Executable: " ++ pLoc
putStrLn $ " * Library directory: " ++ libDir
+ putStrLn ""
-- -----------------------------------------------------------------------------
-- Utility functions
Please sign in to comment.
Something went wrong with that request. Please try again.