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

Semigroup instance for WidgetT

Browse Source
This commit is contained in:
Greg Weber 2015-02-08 14:09:10 -08:00
parent 7cc9700774
commit 8086ca5d57
2 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
yesod-core/Yesod/Core/Types.hs
View File

@ -65,6 +65,7 @@ import Yesod.Core.TypeCache (TypeMap, KeyedTypeMap)
#if MIN_VERSION_monad_logger(0, 3, 10) #if MIN_VERSION_monad_logger(0, 3, 10)
import Control.Monad.Logger (MonadLoggerIO (..)) import Control.Monad.Logger (MonadLoggerIO (..))
#endif #endif
import Data.Semigroup (Semigroup)
-- Sessions -- Sessions
type SessionMap = Map Text ByteString 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 instance (a ~ (), Monad m) => Monoid (WidgetT site m a) where
mempty = return () mempty = return ()
mappend x y = x >> y mappend x y = x >> y
instance (a ~ (), Monad m) => Semigroup (WidgetT site m a)
type RY master = Route master -> [(Text, Text)] -> Text type RY master = Route master -> [(Text, Text)] -> Text

1
yesod-core/yesod-core.cabal
View File

@ -68,6 +68,7 @@ library
, primitive , primitive
, word8 , word8
, auto-update , auto-update
, semigroups
exposed-modules: Yesod.Core exposed-modules: Yesod.Core
Yesod.Core.Content Yesod.Core.Content