X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=utils%2Fhpc%2FMain.hs;h=419a519a5979d49366bad1a2737728012ba17ac4;hb=5fffd9b28c2b67d4f58596ad8837a024e11882f5;hp=da859d0345990ab47a9c166f31097b96473e3351;hpb=34cc75e1a62638f2833815746ebce0a9114dc26b;p=ghc-hetmet.git

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