From 00635452b96eaa7cdef8239b5c02c59fd9b9e593 Mon Sep 17 00:00:00 2001 From: Andrew Martin Date: Tue, 21 Jul 2015 11:07:52 -0400 Subject: [PATCH] Add IsString instance for WidgetT site m () --- yesod-core/Yesod/Core/Types.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/yesod-core/Yesod/Core/Types.hs b/yesod-core/Yesod/Core/Types.hs index 5fa5c3d3..f41bcbd0 100644 --- a/yesod-core/Yesod/Core/Types.hs +++ b/yesod-core/Yesod/Core/Types.hs @@ -48,7 +48,7 @@ import qualified Network.Wai.Parse as NWP import System.Log.FastLogger (LogStr, LoggerSet, toLogStr, pushLogStr) import qualified System.Random.MWC as MWC import Network.Wai.Logger (DateCacheGetter) -import Text.Blaze.Html (Html) +import Text.Blaze.Html (Html, toHtml) import Text.Hamlet (HtmlUrl) import Text.Julius (JavascriptUrl) import Web.Cookie (SetCookie) @@ -250,6 +250,10 @@ 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) +instance Monad m => IsString (WidgetT site m ()) where + fromString = toWidget . toHtml . T.pack + where toWidget x = WidgetT $ const $ return $ ((), GWData (Body (const x)) + mempty mempty mempty mempty mempty mempty) type RY master = Route master -> [(Text, Text)] -> Text