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

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"