7.4 ships with (<>) = mappend

This commit is contained in:
Greg Weber 2012-02-29 09:42:50 -08:00
parent fe67a28c19
commit c2ee1d4cbe

View File

@ -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