@@ -167,7 +167,7 @@ decodeFileEither = decodeHelper_ . Y.decodeFile
168decodeEither :: FromJSON a => ByteString -> Either String a
168decodeEither :: FromJSON a => ByteString -> Either String a
169decodeEither bs = unsafePerformIO
169decodeEither bs = unsafePerformIO
170− $ fmap (either (Left . show) id)
170+ $ fmap (either (Left . prettyPrintParseException) id)
171 $ decodeHelper (Y.decode bs)
171 $ decodeHelper (Y.decode bs)
173-- | More helpful version of 'decodeEither' which returns the 'YamlException'.
173-- | More helpful version of 'decodeEither' which returns the 'YamlException'.