Ghc710 conditional import and remove unused toUpper.
This commit is contained in:
parent
ac6e8f6195
commit
233fc03532
@ -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
|
||||
|
||||
@ -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)
|
||||
|
||||
Loading…
Reference in New Issue
Block a user