Removed default case.
commit9ee63f168a008bec382539b587d326929691c0cb
authorDaniel Díaz <dhelta.diaz@gmail.com>
dateSat 18 Apr 2015, 10:30 (12 years ago)
parentfba712d
Data/Yaml/Internal.hs+1−1
@@ -91,7 +91,7 @@ prettyPrintParseException (NonStringKeyAlias n v) = unlines
9191 [ "Non-string key alias:"
9292 , " Anchor name: " ++ n
9393 , " Value: " ++ show v
94−prettyPrintParseException pe = show pe
94+ ]
9595
9696newtype PErrorT m a = PErrorT { runPErrorT :: m (Either ParseException a) }
9797instance Monad m => Functor (PErrorT m) where