import (<>) with GHC >= 7.0.4

This commit is contained in:
Peter Berry 2012-06-18 23:45:52 +02:00
parent 8b5fbb47af
commit 6bb584a8ec

View File

@ -15,7 +15,11 @@ module Import
import Prelude hiding (writeFile, readFile, head, tail, init, last) import Prelude hiding (writeFile, readFile, head, tail, init, last)
import Yesod hiding (Route(..)) import Yesod hiding (Route(..))
import Foundation import Foundation
#if __GLASGOW_HASKELL__ < 704
import Data.Monoid (Monoid (mappend, mempty, mconcat)) import Data.Monoid (Monoid (mappend, mempty, mconcat))
#else
import Data.Monoid (Monoid (mappend, mempty, mconcat), (<>))
#endif
import Control.Applicative ((<$>), (<*>), pure) import Control.Applicative ((<$>), (<*>), pure)
import Data.Text (Text) import Data.Text (Text)
import Settings.StaticFiles import Settings.StaticFiles