Added option to modify whiteSpace behaviour

doppioandante · May 7, 2015 · 85a6343 · 85a6343
1 parent 6fabd83
commit 85a6343
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/Text/Parsec/Language.hs b/Text/Parsec/Language.hs
@@ -23,6 +23,8 @@ module Text.Parsec.Language
     , GenLanguageDef
     ) where
 
+import Data.Char (isSpace)
+
 import Text.Parsec
 import Text.Parsec.Token
 
@@ -88,6 +90,7 @@ emptyDef    = LanguageDef
                , reservedOpNames= []
                , reservedNames  = []
                , caseSensitive  = True
+               , spaceFunc      = isSpace
                }
 
 

diff --git a/Text/Parsec/Token.hs b/Text/Parsec/Token.hs
@@ -687,7 +687,7 @@ makeTokenParser languageDef
 
 
     simpleSpace =
-        skipMany1 (satisfy isSpace)
+        skipMany1 (satisfy $ spaceFunc languageDef)
 
     oneLineComment =
         do{ try (string (commentLine languageDef))