Merge pull request #89 from sid-kap/improve-prettyPrintParseException

Improve prettyPrintParseException when context is empty
snoyberg · Jul 19, 2016 · 0816ef3 · 0816ef3
2 parents 5f520f4 + 98636f1
commit 0816ef3
Showing 1 changed file with 6 additions and 4 deletions.
diff --git a/Data/Yaml/Internal.hs b/Data/Yaml/Internal.hs
@@ -88,11 +88,13 @@ prettyPrintParseException pe = case pe of
     Nothing -> "Unspecified YAML error"
     Just yamlError -> case yamlError of
       YamlException s -> "YAML exception:\n" ++ s
-      YamlParseException problem context mark -> unlines
+      YamlParseException problem context mark -> concat
         [ "YAML parse exception at line " ++ show (yamlLine mark) ++
-          ", column " ++ show (yamlColumn mark) ++ ","
-        -- The context seems to include a leading "while" or similar.
-        , context ++ ":"
+          ", column " ++ show (yamlColumn mark)
+        , case context of
+            "" -> ":\n"
+            -- The context seems to include a leading "while" or similar.
+            _  -> ",\n" ++ context ++ ":\n"
         , problem
         ]
   AesonException s -> "Aeson exception:\n" ++ s