diff options
| -rw-r--r-- | Regfish/Default.hs | 1 | ||||
| -rw-r--r-- | Regfish/Parser.hs | 4 | ||||
| -rw-r--r-- | Regfish/Types.hs | 1 |
3 files changed, 1 insertions, 5 deletions
diff --git a/Regfish/Default.hs b/Regfish/Default.hs index bb78dd3..029c074 100644 --- a/Regfish/Default.hs +++ b/Regfish/Default.hs @@ -4,7 +4,6 @@ module Regfish.Default () where -import Control.Applicative import Data.Default import Regfish.Types import System.Environment (getEnv) 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 diff --git a/Regfish/Types.hs b/Regfish/Types.hs index c453947..734c6c3 100644 --- a/Regfish/Types.hs +++ b/Regfish/Types.hs @@ -6,7 +6,6 @@ module Regfish.Types where -import Control.Applicative import Control.Lens import Control.Monad.Reader import Control.Monad.State |