bamboo 2009.4.23 → 2009.4.25

raw patch · 5 files changed

+42/−10 lines, 5 filesdep +ansi-wl-pprintdep +base64-stringdep +bytestringdep ~hack

Dependencies added: ansi-wl-pprint, base64-string, bytestring, hyena, template, time, unix, zlib

Dependency ranges changed: hack

Files

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

@@ -1,5 +1,5 @@ Name:                 bamboo-Version:              2009.4.23+Version:              2009.4.25 Build-type:           Simple Synopsis:             A simple blog engine on Hack Description:          A simple blog engine on Hack@@ -15,7 +15,7 @@  library   ghc-options: -Wall -fno-warn-missing-signatures -fno-warn-name-shadowing -fno-warn-orphans -fno-warn-type-defaults-  build-depends: base, cgi, network, haskell98, old-locale, old-time, directory, filepath, containers, process, mps >= 2008.11.6, parsedate >= 3000.0.0, rss >= 3000.0.1, xhtml, kibro >= 0.4.2, utf8-string >= 0.3.3, pandoc, parsec >= 2, MissingH, gravatar >= 0.3, data-default >= 0.2, hcheat >= 2008.11.6, hack >= 2009.4.23+  build-depends: base, cgi, network, haskell98, old-locale, old-time, time, unix, bytestring, template, base64-string, zlib, directory, ansi-wl-pprint, hyena, filepath, containers, process, mps >= 2008.11.6, parsedate >= 3000.0.0, rss >= 3000.0.1, xhtml, kibro >= 0.4.2, utf8-string >= 0.3.3, pandoc, parsec >= 2, MissingH, gravatar >= 0.3, data-default >= 0.2, hcheat >= 2008.11.6, hack >= 2009.4.25   hs-source-dirs: src/   exposed-modules:                       Bamboo

@@ -1,3 +1,10 @@+2009.4.25+----------++### Feature++* Use hyena handler by default+ 2009.4.23 --------- 

@@ -8,27 +8,54 @@     bamboo   ) where -import Bamboo.Controller.Application-import Hack.Handler.Kibro+import Bamboo.Controller.Application (paths)++import Hack.Handler.Hyena import Hack.Utils import Hack import Hack.Contrib.RawRouter import Hack.Contrib.ContentType import Hack.Contrib.ContentSize import Hack.Contrib.SimpleAccessLogger+import Hack.Contrib.ShowExceptions+import Hack.Contrib.File+import Hack.Contrib.Static+import Hack.Contrib.ShowStatus+import Hack.Contrib.Lucky +import qualified Hack.Contrib.Head as H+ import Bamboo.Helper.Env hiding (body, not_found, (>))  default_content_type = "text/plain; charset=UTF-8"  middleware_stack = -  [  simple_access_logger Nothing Nothing "Bamboo"+  [  dummy_middleware+  +  -- completeness   ,  content_size   ,  content_type default_content_type+  +  -- debuging+  ,  show_exceptions Nothing+  ,  show_status+  +  -- optimization+  ,  H.head++  -- logger+  -- ,  simple_access_logger Nothing+    +  -- dispatch+  -- static serve+   ,  lucky+  ,  static (Just "db/public") ["/theme", "/images", "/plugin", "/favicon.ico"]+  +  -- real app   ,  route paths   ]   -app = not_found_app .use middleware_stack+app = dummy_app .use middleware_stack  bamboo :: IO () bamboo = run app

@@ -20,7 +20,6 @@ import qualified Bamboo.Type.Pager as Pager import Bamboo.Type.Extension import Hack-import Hack.Utils (not_found_app)  -- model import qualified Bamboo.Model.Post as Post@@ -57,7 +56,7 @@   .map_fst ((G.root /) > ("^" ++))  -only_for ext x = if has_extension ext then x else not_found_app+only_for ext x = if has_extension ext then x else const not_found   default_state = do

@@ -27,7 +27,6 @@ import Data.Map (Map) import System.Directory import Hack-import Hack.Utils (not_found_app)  (/) :: FilePath -> FilePath -> FilePath (/) = (</>)@@ -129,7 +128,7 @@  -- config parse_list s = s.split "," .map strip .reject null-not_found = not_found_app def+not_found = return $ def { status = 404 }   -- generic