diff options
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/ghc-pkg/Main.hs | 10 | ||||
| -rw-r--r-- | utils/hpc/Main.hs | 2 |
2 files changed, 6 insertions, 6 deletions
diff --git a/utils/ghc-pkg/Main.hs b/utils/ghc-pkg/Main.hs index d5baf9f610..5f6f0b9259 100644 --- a/utils/ghc-pkg/Main.hs +++ b/utils/ghc-pkg/Main.hs @@ -360,7 +360,7 @@ parseGlobPackageId = parse +++ (do n <- parse - string "-*" + _ <- string "-*" return (PackageIdentifier{ pkgName = n, pkgVersion = globVersion })) -- globVersion means "all versions" @@ -506,7 +506,7 @@ readParseDatabase mb_user_conf filename | otherwise = do str <- readFile filename let packages = map convertPackageInfoIn $ read str - Exception.evaluate packages + _ <- Exception.evaluate packages `catchError` \e-> die ("error while parsing " ++ filename ++ ": " ++ show e) return (filename,packages) @@ -813,7 +813,7 @@ checkConsistency my_flags = do else do when (not simple_output) $ do reportError ("There are problems in package " ++ display (package p) ++ ":") - reportValidateErrors es " " Nothing + _ <- reportValidateErrors es " " Nothing return () return [p] @@ -1247,8 +1247,8 @@ installSignalHandlers = do (Exception.ErrorCall "interrupted") -- #if !defined(mingw32_HOST_OS) - installHandler sigQUIT (Catch interrupt) Nothing - installHandler sigINT (Catch interrupt) Nothing + _ <- installHandler sigQUIT (Catch interrupt) Nothing + _ <- installHandler sigINT (Catch interrupt) Nothing return () #elif __GLASGOW_HASKELL__ >= 603 -- GHC 6.3+ has support for console events on Windows diff --git a/utils/hpc/Main.hs b/utils/hpc/Main.hs index da859d0345..419a519a59 100644 --- a/utils/hpc/Main.hs +++ b/utils/hpc/Main.hs @@ -56,7 +56,7 @@ dispatch (txt:args0) = do case getOpt Permute (options plugin []) args of (_,_,errs) | not (null errs) -> do putStrLn "hpc failed:" - sequence [ putStr (" " ++ err) + sequence_ [ putStr (" " ++ err) | err <- errs ] putStrLn $ "\n" |