summaryrefslogtreecommitdiffstats
path: root/Regfish
diff options
context:
space:
mode:
Diffstat (limited to 'Regfish')
-rw-r--r--Regfish/Default.hs1
-rw-r--r--Regfish/Parser.hs4
-rw-r--r--Regfish/Types.hs1
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