@@ -88,11 +88,13 @@ prettyPrintParseException pe = case pe of
88 Nothing -> "Unspecified YAML error"
88 Nothing -> "Unspecified YAML error"
89 Just yamlError -> case yamlError of
89 Just yamlError -> case yamlError of
90 YamlException s -> "YAML exception:\n" ++ s
90 YamlException s -> "YAML exception:\n" ++ s
91− YamlParseException problem context mark -> unlines
91+ YamlParseException problem context mark -> concat
92 [ "YAML parse exception at line " ++ show (yamlLine mark) ++
92 [ "YAML parse exception at line " ++ show (yamlLine mark) ++
93− ", column " ++ show (yamlColumn mark) ++ ","
93+ ", column " ++ show (yamlColumn mark)
94− -- The context seems to include a leading "while" or similar.
96+ -- The context seems to include a leading "while" or similar.
95− , context ++ ":"
97+ _ -> ",\n" ++ context ++ ":\n"
98 AesonException s -> "Aeson exception:\n" ++ s
100 AesonException s -> "Aeson exception:\n" ++ s