From 85e9ee3ff005fe7f093f803c424801c5bfde7f49 Mon Sep 17 00:00:00 2001 From: tv Date: Fri, 21 Oct 2016 23:57:13 +0200 Subject: migrate to GHC 8.0 --- Regfish/Default.hs | 1 - Regfish/Parser.hs | 4 +--- Regfish/Types.hs | 1 - 3 files changed, 1 insertion(+), 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 -- cgit v1.2.3