remove some CPP that's obsolete since we require base 4.8+

This commit is contained in:
Simon Michael 2018-06-04 15:13:49 -07:00
parent 7ebecb1ab8
commit 061aad0431
9 changed files with 0 additions and 27 deletions

View File

@ -38,9 +38,6 @@ where
import Control.Applicative ((<|>))
import Data.Data (Data)
#if !MIN_VERSION_base(4,8,0)
import Data.Functor.Compat ((<$>))
#endif
import Data.List
import Data.Maybe
import qualified Data.Text as T

View File

@ -6,9 +6,6 @@
module Hledger.UI.UIOptions
where
import Data.Default
#if !MIN_VERSION_base(4,8,0)
import Data.Functor.Compat ((<$>))
#endif
import Data.List (intercalate)
import System.Environment

View File

@ -8,9 +8,6 @@ See a default Yesod app's comments for more details of each part.
module Foundation where
import Prelude
#if !MIN_VERSION_base(4,8,0)
import Control.Applicative ((<$>))
#endif
import Data.IORef
import Yesod
import Yesod.Static

View File

@ -7,9 +7,6 @@ module Handler.AddForm where
import Import
#if !MIN_VERSION_base(4,8,0)
import Control.Applicative
#endif
import Control.Monad.State.Strict (evalStateT)
import Data.Either (lefts,rights)
import Data.List (sort)

View File

@ -19,9 +19,6 @@ import Data.String
import Network.Wai.Handler.Warp (runSettings, defaultSettings, setHost, setPort)
import Network.Wai.Handler.Launch (runHostPortUrl)
--
#if !MIN_VERSION_base(4,8,0)
import Control.Applicative ((<$>))
#endif
import Control.Monad
import Data.Default
import Data.Text (pack)

View File

@ -3,9 +3,6 @@ module Hledger.Web.WebOptions
where
import Prelude
import Data.Default
#if !MIN_VERSION_base(4,8,0)
import Data.Functor.Compat ((<$>))
#endif
import Data.Maybe
import System.Environment

View File

@ -7,9 +7,6 @@ import Prelude as Import hiding (head, init, last,
readFile, tail, writeFile)
import Yesod as Import hiding (Route (..))
#if !MIN_VERSION_base(4,8,0)
import Control.Applicative as Import (pure, (<$>), (<*>))
#endif
import Data.Text as Import (Text)
import Foundation as Import

View File

@ -13,9 +13,6 @@ import Yesod.Default.Config
import Yesod.Default.Util
import Data.Text (Text)
import Data.Yaml
#if !MIN_VERSION_base(4,8,0)
import Control.Applicative
#endif
import Settings.Development
import Data.Default (def)
import Text.Hamlet

View File

@ -76,9 +76,6 @@ import qualified Control.Exception as C
import Control.Monad (when)
import Data.Char
import Data.Default
#if !MIN_VERSION_base(4,8,0)
import Data.Functor.Compat ((<$>))
#endif
import Data.Functor.Identity (Identity)
import "base-compat-batteries" Data.List.Compat
import Data.List.Split (splitOneOf)