From 8086ca5d5766f6639ea6d12bda36587b5d193c70 Mon Sep 17 00:00:00 2001
From: Greg Weber <greg@gregweber.info>
Date: Sun, 8 Feb 2015 14:09:10 -0800
Subject: [PATCH] Semigroup instance for WidgetT

---
 yesod-core/Yesod/Core/Types.hs | 2 ++
 yesod-core/yesod-core.cabal    | 1 +
 2 files changed, 3 insertions(+)

diff --git a/yesod-core/Yesod/Core/Types.hs b/yesod-core/Yesod/Core/Types.hs
index a8605665..4ee00694 100644
--- a/yesod-core/Yesod/Core/Types.hs
+++ b/yesod-core/Yesod/Core/Types.hs
@@ -65,6 +65,7 @@ import Yesod.Core.TypeCache (TypeMap, KeyedTypeMap)
 #if MIN_VERSION_monad_logger(0, 3, 10)
 import Control.Monad.Logger (MonadLoggerIO (..))
 #endif
+import Data.Semigroup (Semigroup)
 
 -- Sessions
 type SessionMap = Map Text ByteString
@@ -248,6 +249,7 @@ newtype WidgetT site m a = WidgetT
 instance (a ~ (), Monad m) => Monoid (WidgetT site m a) where
     mempty = return ()
     mappend x y = x >> y
+instance (a ~ (), Monad m) => Semigroup (WidgetT site m a)
 
 type RY master = Route master -> [(Text, Text)] -> Text
 
diff --git a/yesod-core/yesod-core.cabal b/yesod-core/yesod-core.cabal
index c8f1070a..4a879904 100644
--- a/yesod-core/yesod-core.cabal
+++ b/yesod-core/yesod-core.cabal
@@ -68,6 +68,7 @@ library
                    , primitive
                    , word8
                    , auto-update
+                   , semigroups
 
     exposed-modules: Yesod.Core
                      Yesod.Core.Content