From 883c33967c4408e459e54d0b69057594d5954f3f Mon Sep 17 00:00:00 2001
From: Philippe Pittoli <karchnu@karchnu.fr>
Date: Sat, 20 Jan 2024 02:04:08 +0100
Subject: [PATCH] Remove unused reference.

---
 src/GenericParser/Parser.purs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/GenericParser/Parser.purs b/src/GenericParser/Parser.purs
index da1529b..f7f4eb5 100644
--- a/src/GenericParser/Parser.purs
+++ b/src/GenericParser/Parser.purs
@@ -123,7 +123,7 @@ try p = Parser p'
 sat :: forall e. (Char -> Boolean) -> Parser e Char
 sat p = do pos <- current_position
            x <- item
-           if p x then pure x else Parser \input -> failure pos
+           if p x then pure x else Parser \_ -> failure pos
 
 digit :: forall e. Parser e Char
 digit = sat isDigit