happs-tutorial 0.6.0 → 0.6.1

raw patch · 2 files changed

+2/−9 lines, 2 files

Files

happs-tutorial.cabal +1/−1
src/Controller.hs +1/−8

happs-tutorial.cabal view

@@ -1,5 +1,5 @@ Name:                happs-tutorial-Version:             0.6.0+Version:             0.6.1 Synopsis:            A HAppS Tutorial that is is own demo Description:         A nice way to learn how to build web sites with HAppS

src/Controller.hs view

@@ -15,10 +15,6 @@ import System.Directory import Data.Char import Debug.Trace.Helpers--import HSH---- state import StateVersions.AppState1 import View @@ -30,12 +26,9 @@  import HAppS.Helpers.DirBrowse import Misc ---import Debug.Trace---import Data.ByteString (pack,unpack) import Data.ByteString.Internal  import HAppS.Server.CookieFixer import Text.StringTemplate.Helpers--- SPs: ServerParts   staticfiles = [ staticserve "static"@@ -45,7 +38,7 @@                 , browsedirHS "src" "src"                ]    where staticserve d = dir d [ fileServe [] d ]- + -- main controller controller :: STDirGroups String -> Bool -> Bool -> [ServerPartT IO Response] controller tDirGroups dynamicTemplateReload allowStressTests = map cookieFixer $