diff --git a/Main.hs b/Main.hs
index da859d0345990ab47a9c166f31097b96473e3351..419a519a5979d49366bad1a2737728012ba17ac4 100644
--- a/Main.hs
+++ b/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"