@@ -51,12 +51,12 @@ run command args =
52 context msg =
52 context msg =
53 "failure when running:" ++ concatMap (' ':) (command:args) ++ "\n" ++ msg
53 "failure when running:" ++ concatMap (' ':) (command:args) ++ "\n" ++ msg
55 message err =
55 message err =
56 case err of
56 case err of
57 CommandFailed stderr stdout ->
57 CommandFailed stderr stdout ->
58 stdout ++ stderr
58 stdout ++ stderr
59− MissingExe msg ->
59+ MissingExe msg ->