From 413a4094473cd05a8f7b92f35572e7f01a220908 Mon Sep 17 00:00:00 2001 From: Tissevert Date: Tue, 26 Feb 2019 14:46:05 +0100 Subject: [PATCH] Explicitely import (<>) for older versions of base --- src/Blog/Path.hs | 1 + src/Blog/Skin.hs | 1 + src/Blog/Wording.hs | 1 + 3 files changed, 3 insertions(+) diff --git a/src/Blog/Path.hs b/src/Blog/Path.hs index e3b3bff..a216f52 100644 --- a/src/Blog/Path.hs +++ b/src/Blog/Path.hs @@ -9,6 +9,7 @@ module Blog.Path ( import Arguments (Arguments) import qualified Arguments as Arguments (Arguments(..)) import Data.Aeson (ToJSON(..), (.=), pairs) +import Data.Monoid ((<>)) import Files (File(..), absolute, filePath) import GHC.Generics (Generic) diff --git a/src/Blog/Skin.hs b/src/Blog/Skin.hs index 79d3093..aa688c4 100644 --- a/src/Blog/Skin.hs +++ b/src/Blog/Skin.hs @@ -11,6 +11,7 @@ import qualified Arguments (bannerPath, favicon, cardImage, headPath, previewArt import Control.Monad (filterM) import Data.Aeson (ToJSON(..), (.=), pairs) import Data.Maybe (listToMaybe) +import Data.Monoid ((<>)) import Files (absoluteLink) import GHC.Generics (Generic) import Prelude hiding (head) diff --git a/src/Blog/Wording.hs b/src/Blog/Wording.hs index 27d5314..3925d29 100644 --- a/src/Blog/Wording.hs +++ b/src/Blog/Wording.hs @@ -11,6 +11,7 @@ import Data.Aeson (ToJSON(..), (.=), object, pairs) import Data.List (intercalate) import Data.Map (Map, (!)) import qualified Data.Map as Map (empty, fromList, map, union) +import Data.Monoid ((<>)) import Data.Text (Text) import qualified Data.Text as Text (pack, unpack) import Data.Text.Template (Template, renderA, showTemplate, templateSafe)