7.4 ships with (<>) = mappend
This commit is contained in:
parent
fe67a28c19
commit
c2ee1d4cbe
@ -2,11 +2,13 @@ module Import
|
||||
( module Prelude
|
||||
, module Yesod
|
||||
, module Foundation
|
||||
, (<>)
|
||||
, Text
|
||||
, module Data.Monoid
|
||||
, module Control.Applicative
|
||||
, module Settings.StaticFiles
|
||||
, Text
|
||||
#if __GLASGOW_HASKELL__ <= 740
|
||||
, (<>)
|
||||
#endif
|
||||
) where
|
||||
|
||||
import Prelude hiding (writeFile, readFile, head, tail, init, last)
|
||||
@ -17,6 +19,8 @@ import Control.Applicative ((<$>), (<*>), pure)
|
||||
import Data.Text (Text)
|
||||
import Settings.StaticFiles
|
||||
|
||||
#if __GLASGOW_HASKELL__ <= 740
|
||||
infixr 5 <>
|
||||
(<>) :: Monoid m => m -> m -> m
|
||||
(<>) = mappend
|
||||
#endif
|
||||
|
||||
Loading…
Reference in New Issue
Block a user