bamboo 2009.5.18.1 → 2009.5.18.2

raw patch · 4 files changed

+13/−5 lines, 4 files

Files

• bamboo.cabal +1/−1
• changelog.md +7/−0
• src/Bamboo/Controller/Application.hs +3/−3
• src/Bamboo/Helper/Helper.hs +2/−1

@@ -1,5 +1,5 @@ Name:                 bamboo-Version:              2009.5.18.1+Version:              2009.5.18.2 Build-type:           Simple Synopsis:             A simple blog middleware on hack Description:          A simple blog middleware on hack

@@ -1,3 +1,10 @@+2009.5.18.2+-----------++### Fix++* use renderHtml for strict html headers+ 2009.5.18.1 ----------- 

@@ -80,7 +80,7 @@     >>= output_plain_html   where     g = Post.etag_post_list-    f state = PostV.list state > show > return+    f state = PostV.list state > render_html > return  index_feed _ = do   posts <- list@@ -105,7 +105,7 @@     >>= output_plain_html   where     g = Post.etag_post-    f state comments x = x.return ^ PostV.view state comments ^ show+    f state comments x = x.return ^ PostV.view state comments ^ render_html  static env = do   let id = env.uri@@ -134,7 +134,7 @@         >>= output_plain_html       where         g = Post.etag_post_list-        f state xs = xs.TagV.view state.show.return+        f state xs = xs.TagV.view state.render_html.return          tag_feed env = do   let id = env .uri .split "/" .init .join "/"

@@ -106,7 +106,8 @@ div_class_id x y = thediv ! [theclass x, id y]  xml_header = "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n"-output_html = show > output_plain_html+render_html = renderHtml+output_html = render_html > output_plain_html  output_plain_html x =    def