diff options
Diffstat (limited to 'Regfish/Parser.hs')
-rw-r--r-- | Regfish/Parser.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/Regfish/Parser.hs b/Regfish/Parser.hs index 0553f1e..4cfc5d6 100644 --- a/Regfish/Parser.hs +++ b/Regfish/Parser.hs @@ -6,7 +6,6 @@ module Regfish.Parser ( readZoneIO ) where -import Control.Applicative import qualified Data.List as L import qualified Data.ByteString.Lazy.Char8 as LBS8 import Regfish.Types @@ -105,8 +104,7 @@ removeAllWhiteSpace' = -- fromLA $ processBottomUp removeWhiteSpace' -- less efficient where isWhiteSpace' = hasText (all isXmlSpaceChar') - isXmlSpaceChar' = (`elem` " \n\t\r\160") - + isXmlSpaceChar' = (`elem` (" \n\t\r\160" :: [Char])) errorBadArgument :: Show a => String -> a -> b |