bamboo 2009.8.16 → 2009.11.1

raw patch · 6 files changed

+50/−13 lines, 6 filesdep ~hackdep ~hack-contribdep ~mpsPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: hack, hack-contrib, mps

API changes (from Hackage documentation)

Files

• bamboo.cabal +27/−8
• changelog.md +7/−0
• readme.md +11/−1
• src/Bamboo/Controller/Application.hs +2/−2
• src/Bamboo/Controller/Comment.hs +2/−1
• src/Bamboo/Helper/PreludeEnv.hs +1/−1

@@ -1,5 +1,5 @@ Name:                 bamboo-Version:              2009.8.16+Version:              2009.11.1 Build-type:           Simple Synopsis:             A simple blog engine on Hack License:              GPL@@ -15,13 +15,32 @@ library   ghc-options: -Wall -fno-warn-orphans    build-depends: -      base >= 4 && < 5, network, mtl, haskell98, old-locale, old-time-    , time, unix, bytestring, base64-string, zlib, directory, filepath-    , containers, process, parsedate >= 3000.0.0-    , xhtml, utf8-string >= 0.3.3, pandoc, parsec >= 2, gravatar >= 0.3-    , data-default >= 0.2-    , mps >= 2009.6.25, hcheat >= 2009.6.25-    , hack >= 2009.5.19, hack-contrib >= 2009.6.25+                    base >= 4 && < 5+                  , network+                  , mtl+                  , haskell98+                  , old-locale+                  , old-time+                  , time+                  , unix+                  , bytestring+                  , base64-string+                  , zlib+                  , directory+                  , filepath+                  , containers+                  , process+                  , parsedate >= 3000.0.0+                  , xhtml+                  , utf8-string >= 0.3.3+                  , pandoc+                  , parsec >= 2+                  , gravatar >= 0.3+                  , data-default >= 0.2+                  , mps >= 2009.9.18+                  , hcheat >= 2009.6.25+                  , hack >= 2009.10.30+                  , hack-contrib >= 2009.11.1   hs-source-dirs: src/   exposed-modules:                       Bamboo

@@ -1,3 +1,10 @@+2009.11.1+---------++### Fix++* comment bug+ 2009.8.16 --------- 

@@ -1,4 +1,4 @@-# Bamboo: a simple blog middleware on hack+# Bamboo: a simple blog engine on hack  Bamboo is a port of [Panda](http://github.com/nfjinjing/panda/tree), but runs on top of Hack. It's an experimental project but quite portable. @@ -110,3 +110,13 @@ * [bamboo-launcher](http://github.com/nfjinjing/bamboo-launcher) * [bamboo-plugin-highlight](http://github.com/nfjinjing/bamboo-plugin-highlight) * [bamboo-plugin-photo](http://github.com/nfjinjing/bamboo-plugin-photo)++## That's it++郑板桥（1693~1765） 修竹幽兰图++<a href="http://github.com/nfjinjing/bamboo/raw/master/bamboo.jpg">+  <img src="http://github.com/nfjinjing/bamboo/raw/master/bamboo-thumb.jpg" />+</a>++

@@ -12,6 +12,7 @@ import Bamboo.Controller.Static import Bamboo.Controller.Tag import qualified Bamboo.Type.ThemeInterface as I+import Data.Maybe (catMaybes)  paths_with_theme :: I.Theme -> [(String, Application)] paths_with_theme t = @@ -25,8 +26,7 @@   ,  for_extension  Search  $ x "/search"    I.Search              search              ,  for_extension  Comment $ Just ("/comment/create", comment_create )   ]-  .filter isJust-  .map fromJust+  .catMaybes   .map_fst ("^" ++)      where

@@ -11,6 +11,7 @@ import qualified Bamboo.Model.Comment as Comment import qualified Bamboo.Model.Post as Post import qualified Bamboo.Type.State as S+import MPS (trace')   comment_create :: Application@@ -28,7 +29,7 @@   when ([checked, valid_path, exists].and) $     env.inputs.Comment.create_comment   -  return $ def.redirect ((uid.Post.id_to_uri.u2b).unescape_uri) Nothing+  return $ def.redirect ((uid.Post.id_to_uri.u2b).unescape_uri.("/" /)) Nothing .trace'      where     get_input_data s = env.get_input (s.show_data)

@@ -8,4 +8,4 @@ import Prelude hiding (   (.), (/), (^), id, span, readFile, writeFile, div, (>), (^^)   )-import MPSUTF8 hiding (base, date, format_time, (-))+import MPSUTF8 hiding ((<), base, date, format_time, (-))