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

Add ToWidget instances for strict text, lazy text, and text builder

Browse Source
This commit is contained in:
Andrew Martin 2016-11-27 15:27:54 -05:00
parent ed87ded970
commit 1781699cab
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
yesod-core/Yesod/Core/Widget.hs
View File

@ -72,6 +72,7 @@ import qualified Text.Hamlet as NP
import Data.Text.Lazy.Builder (fromLazyText)
import Text.Blaze.Html (toHtml, preEscapedToMarkup)
import qualified Data.Text.Lazy as TL
import qualified Data.Text.Lazy.Builder as TB
import Yesod.Core.Types
import Yesod.Core.Class.Handler
@ -100,6 +101,12 @@ instance (site' ~ site, IO ~ m, a ~ ()) => ToWidget site' (WidgetT site m a) whe
toWidget = liftWidgetT
instance ToWidget site Html where
toWidget = toWidget . const
instance ToWidget site Text where
toWidget = toWidget . toHtml
instance ToWidget site TL.Text where
toWidget = toWidget . toHtml
instance ToWidget site TB.Builder where
toWidget = toWidget . toHtml
-- | Allows adding some CSS to the page with a specific media type.
--