Ghc710 conditional import and remove unused toUpper.

This commit is contained in:
Mikkel Christiansen 2015-08-26 14:22:12 +02:00
parent ac6e8f6195
commit 233fc03532
2 changed files with 5 additions and 2 deletions

View File

@ -15,7 +15,7 @@ module Yesod.Default.Config
, withYamlEnvironment
) where
import Data.Char (toUpper, toLower)
import Data.Char (toUpper)
import Data.Text (Text)
import qualified Data.Text as T
import Data.Yaml

View File

@ -20,7 +20,11 @@ module Yesod.Default.Config2
, requireCustomEnv
) where
#if __GLASGOW_HASKELL__ < 710
import Control.Applicative ((<$>))
import Data.Monoid
#endif
import Data.Semigroup
import Data.List.NonEmpty (nonEmpty)
import Data.Aeson
@ -28,7 +32,6 @@ import qualified Data.HashMap.Strict as H
import Data.Text (Text, pack)
import System.Environment (getEnvironment, getArgs)
import Control.Arrow ((***))
import Control.Applicative ((<$>))
import Control.Monad (forM)
import Control.Exception (throwIO)
import Data.Text.Encoding (encodeUtf8)