From 6382eeec38f044da274a430ce576a50e30efd8e5 Mon Sep 17 00:00:00 2001
From: Joel Williamson <joel.s.williamson@gmail.com>
Date: Sat, 7 Mar 2015 13:16:49 -0500
Subject: [PATCH] Fixed type of argument to char in examples

The examples for identStart and identLetter were calling `char "_"`. char should take a character literal, not a string.
---
 Text/Parsec/Token.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Text/Parsec/Token.hs b/Text/Parsec/Token.hs
index 885f797..27c1303 100644
--- a/Text/Parsec/Token.hs
+++ b/Text/Parsec/Token.hs
@@ -64,12 +64,12 @@ data GenLanguageDef s u m
     nestedComments :: Bool,
 
     -- | This parser should accept any start characters of identifiers. For
-    -- example @letter \<|> char \"_\"@. 
+    -- example @letter \<|> char \'_\'@. 
 
     identStart     :: ParsecT s u m Char,
 
     -- | This parser should accept any legal tail characters of identifiers.
-    -- For example @alphaNum \<|> char \"_\"@. 
+    -- For example @alphaNum \<|> char \'_\'@. 
 
     identLetter    :: ParsecT s u m Char,