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