From 6f6960ef65f170dc202f5b39f180cc9a17322bff Mon Sep 17 00:00:00 2001
From: Michael Schmidt <github@mschmidt.me>
Date: Mon, 6 Feb 2017 21:42:18 +0100
Subject: [PATCH] fix tiny bug in pattern match

---
 doc/alex.xml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/doc/alex.xml b/doc/alex.xml
index 050588e..4471b63 100644
--- a/doc/alex.xml
+++ b/doc/alex.xml
@@ -1299,7 +1299,7 @@ alexGetByte (_,[],(c:s)) = case utf8Encode c of
                              (b:bs) -> Just (b, (c, bs, s))
 
 alexInputPrevChar :: AlexInput -> Char
-alexInputPrevChar (c,_) = c
+alexInputPrevChar (c,_,_) = c
 
 -- alexScanTokens :: String -> [token]
 alexScanTokens str = go ('\n',[],str)