Permalink
Browse files

oops. thought i'd at least run a compilation to make sure everything …

…still

works. app not.

missed some blaze-html related name/api changes
  • Loading branch information...
1 parent 11c59d8 commit f3949b48f6b6294dfc45eea1ebb172bba85e8d3b @suhailshergill committed May 30, 2012
Showing with 4 additions and 3 deletions.
  1. +2 −2 blog/Handler/Home.hs
  2. +1 −0 blog/blog.cabal
  3. +1 −1 blog/templates/homepage.hamlet
View
@@ -12,7 +12,7 @@ module Handler.Home
import Import
import Control.Monad (liftM)
-import Text.Blaze (preEscapedText)
+import Text.Blaze (preEscapedToMarkup)
import Data.Text (append)
import Yesod.AtomFeed
@@ -136,7 +136,7 @@ entryEToRss entryE = do
feedEntryLink = PostR $ entryCustomId entryV
, feedEntryUpdated = entryUpdatedOn entryV
, feedEntryTitle = entryHeading entryV
- , feedEntryContent = preEscapedText $ entryPost entryV
+ , feedEntryContent = preEscapedToMarkup $ entryPost entryV
}
getPostsR_ :: Handler ([Entity Entry], Widget)
View
@@ -115,6 +115,7 @@ executable blog
, time >= 1.4 && < 1.5
, yesod-paginator >= 0.3 && < 0.4
, blaze-html >= 0.5 && < 0.6
+ , blaze-markup >= 0.5 && < 0.6
, yesod-newsfeed >= 1.0 && < 1.1
, safe >= 0.3 && < 0.4
, friendly-time >= 0.2 && < 0.3
@@ -15,7 +15,7 @@
<i class="icon-tag">
#{tag}
- < .post-body>#{preEscapedText $ entryPost entry}
+ < .post-body>#{preEscapedToMarkup $ entryPost entry}
< .post-footer>
<script type="text/javascript">

0 comments on commit f3949b4

Please sign in to comment.