summaryrefslogtreecommitdiffstats
path: root/Regfish
diff options
context:
space:
mode:
authortv <tv@krebsco.de>2016-10-21 23:57:13 +0200
committertv <tv@krebsco.de>2016-10-22 00:06:11 +0200
commit85e9ee3ff005fe7f093f803c424801c5bfde7f49 (patch)
tree54f994a8f335968378c2db3a01b43c782aeb5b3b /Regfish
parentf18fabe445c0755802dafc21cecebd3206f00e05 (diff)
migrate to GHC 8.0
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