Update satisfy impl

albertprz · Nov 7, 2023 · a55aefc · a55aefc
1 parent 7fd3066
commit a55aefc
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/src/Bookhound/Parser.purs b/src/Bookhound/Parser.purs
@@ -165,8 +165,10 @@ except
 satisfy :: forall a. (a -> Boolean) -> Parser a -> Parser a
 satisfy cond ma = do
   c2 <- ma
-  guard $ cond c2
-  pure c2
+  if cond c2 then
+    pure c2
+  else
+    empty
 
 withError :: forall a. String -> Parser a -> Parser a
 withError = withErrorN 0