missing case in parserPlus
[packages/parsec.git] / Text / Parsec / Prim.hs
index 0f12b9f..f22f7b8 100644 (file)
@@ -170,6 +170,7 @@ parserPlus (ParsecT p1) (ParsecT p2)
                                 return $ Empty $ return (mergeErrorReply err reply2)
                         consumed
                           -> return $ consumed
+                    other -> return $ Empty $ return $ other
           other -> return $ other
 
 instance MonadTrans (ParsecT s u) where