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 | |
| parent | f18fabe445c0755802dafc21cecebd3206f00e05 (diff) | |
migrate to GHC 8.0
Diffstat (limited to 'Regfish')
| -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 |