fix tiny bug in pattern match

haskell · Feb 6, 2017 · 6f6960e · 6f6960e
1 parent 5a8e4b9
commit 6f6960e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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)