@@ -91,7 +91,7 @@ prettyPrintParseException (NonStringKeyAlias n v) = unlines
91 [ "Non-string key alias:"
91 [ "Non-string key alias:"
92 , " Anchor name: " ++ n
92 , " Anchor name: " ++ n
93 , " Value: " ++ show v
93 , " Value: " ++ show v
94−prettyPrintParseException pe = show pe
94+ ]
96newtype PErrorT m a = PErrorT { runPErrorT :: m (Either ParseException a) }
96newtype PErrorT m a = PErrorT { runPErrorT :: m (Either ParseException a) }
97instance Monad m => Functor (PErrorT m) where
97instance Monad m => Functor (PErrorT m) where