Support for -fwarn-unused-do-bind and -fwarn-wrong-do-bind, as per #3263

[ghc-hetmet.git] / utils / hpc / Main.hs

diff --git a/utils/hpc/Main.hs b/utils/hpc/Main.hs
index da859d0..419a519 100644 (file)
--- 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"