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"