@@ -80,6 +80,17 @@ prettyPrintParseException (AesonException e) =
8080prettyPrintParseException CyclicIncludes = "Cyclic includes"
8181prettyPrintParseException (OtherParseException e) =
8282 "Parse exception: " ++ show e
83+prettyPrintParseException (UnknownAlias n) =
84+ "Unknown alias: " ++ n
85+prettyPrintParseException (UnexpectedEvent r e) = unlines
86+ [ "Unexpected event:"
87+ , " Received: " ++ maybe "None" show r
88+ , " Expected: " ++ maybe "None" show e
89+ ]
90+prettyPrintParseException (NonStringKeyAlias n v) = unlines
91+ [ "Non-string key alias:"
92+ , " Anchor name: " ++ n
93+ , " Value: " ++ show v
8394prettyPrintParseException pe = show pe
8495
8596newtype PErrorT m a = PErrorT { runPErrorT :: m (Either ParseException a) }