diff options
| author | tv <tv@krebsco.de> | 2016-10-21 23:57:13 +0200 |
|---|---|---|
| committer | tv <tv@krebsco.de> | 2016-10-22 00:06:11 +0200 |
| commit | 85e9ee3ff005fe7f093f803c424801c5bfde7f49 (patch) | |
| tree | 54f994a8f335968378c2db3a01b43c782aeb5b3b /Regfish/Parser.hs | |
| parent | f18fabe445c0755802dafc21cecebd3206f00e05 (diff) | |
migrate to GHC 8.0
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 |