bamboo-launcher 2009.5.22.1 → 2009.6.8

raw patch · 3 files changed

+23/−14 lines, 3 filesdep +bamboo-theme-blueprintdep +data-defaultdep ~bamboodep ~basedep ~hack-handler-happstack

Dependencies added: bamboo-theme-blueprint, data-default

Dependency ranges changed: bamboo, base, hack-handler-happstack

Files

• bamboo-launcher.cabal +2/−2
• changelog.md +8/−0
• src/Launcher.hs +13/−12

@@ -1,5 +1,5 @@ Name:                 bamboo-launcher-Version:              2009.5.22.1+Version:              2009.6.8 Build-type:           Simple Synopsis:             bamboo-launcher Description:@@ -18,6 +18,6 @@  Executable            bamboo   ghc-options:        -Wall-  build-depends:      base, hack >= 2009.5.19, hack-contrib >= 2009.5.19, bamboo >= 2009.5.22, hack-handler-happstack >= 2009.5.19, mps >= 2009.5.13, utf8-prelude, process, haskell98+  build-depends:      base >= 4 && < 5, hack >= 2009.5.19, hack-contrib >= 2009.5.19, bamboo >= 2009.6.8, hack-handler-happstack >= 2009.6.5, mps >= 2009.5.13, utf8-prelude, process, haskell98, bamboo-theme-blueprint >= 2009.6.8, data-default >= 0.2   hs-source-dirs:     src/   main-is:            Launcher.hs

@@ -1,3 +1,11 @@+2009.6.8+---------++### Feature++* use bamboo theme+* use new happstack-handler+ 2009.5.22.1 ----------- 

@@ -1,25 +1,26 @@+{-# LANGUAGE NamedFieldPuns #-}+ module Main where  import Bamboo+import Bamboo.Theme.Blueprint+import Data.Default import Hack-import Hack.Handler.Happstack hiding (port)--import Hack.Contrib.Utils-import Hack.Contrib.Middleware.ContentType+import Hack.Contrib.Middleware.BounceFavicon import Hack.Contrib.Middleware.ContentLength+import Hack.Contrib.Middleware.ContentType import Hack.Contrib.Middleware.ShowExceptions import Hack.Contrib.Middleware.Static--import Hack.Contrib.Middleware.BounceFavicon-import qualified Hack.Contrib.Middleware.Head as H---import Prelude hiding ((.))+import Hack.Contrib.Utils+import Hack.Handler.Happstack import MPSUTF8+import Prelude hiding ((.)) import System import System.Cmd import System.IO+import qualified Hack.Contrib.Middleware.Head as H + middleware_stack :: [Middleware] middleware_stack =    [  dummy_middleware@@ -41,7 +42,7 @@   ,  static (Just "db/public") ["/theme", "/images", "/plugin", "/favicon.ico"]      -- real app-  ,  bamboo+  ,  bamboo_with_theme blueprint   ]      where@@ -80,6 +81,6 @@   where     start port = do        putStrLn $ "server started on port " ++ port.show ++ "..."-      runWithConfig (ServerConf port "localhost") app+      runWithConfig def {port} app     sep = putStrLn $ 70.times '-'     repo = "git://github.com/nfjinjing/bamboo-template.git"