< 7.4, not <= 7.4 for (<>)

This commit is contained in:
Greg Weber 2012-03-01 10:24:44 -08:00
parent 42cfed8c81
commit 3290f5339e

View File

@ -6,7 +6,7 @@ module Import
, module Control.Applicative , module Control.Applicative
, module Settings.StaticFiles , module Settings.StaticFiles
, Text , Text
#if __GLASGOW_HASKELL__ <= 740 #if __GLASGOW_HASKELL__ < 740
, (<>) , (<>)
#endif #endif
) where ) where
@ -19,7 +19,7 @@ import Control.Applicative ((<$>), (<*>), pure)
import Data.Text (Text) import Data.Text (Text)
import Settings.StaticFiles import Settings.StaticFiles
#if __GLASGOW_HASKELL__ <= 740 #if __GLASGOW_HASKELL__ < 740
infixr 5 <> infixr 5 <>
(<>) :: Monoid m => m -> m -> m (<>) :: Monoid m => m -> m -> m
(<>) = mappend (<>) = mappend