haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

7.4 ships with (<>) = mappend

Browse Source
This commit is contained in:
Greg Weber 2012-02-29 09:42:50 -08:00
parent fe67a28c19
commit c2ee1d4cbe
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
yesod/scaffold/Import.hs.cg
View File

@ -2,11 +2,13 @@ module Import
( module Prelude ( module Prelude
, module Yesod , module Yesod
, module Foundation , module Foundation
, (<>)
, Text
, module Data.Monoid , module Data.Monoid
, module Control.Applicative , module Control.Applicative
, module Settings.StaticFiles , module Settings.StaticFiles
, Text
#if __GLASGOW_HASKELL__ <= 740
, (<>)
#endif
) where ) where
import Prelude hiding (writeFile, readFile, head, tail, init, last) import Prelude hiding (writeFile, readFile, head, tail, init, last)
@ -17,6 +19,8 @@ import Control.Applicative ((<$>), (<*>), pure)
import Data.Text (Text) import Data.Text (Text)
import Settings.StaticFiles import Settings.StaticFiles
#if __GLASGOW_HASKELL__ <= 740
infixr 5 <> infixr 5 <>
(<>) :: Monoid m => m -> m -> m (<>) :: Monoid m => m -> m -> m
(<>) = mappend (<>) = mappend
#endif