mysnapsession-example 0.3 → 0.3.1

raw patch · 3 files changed

+5/−5 lines, 3 filesdep ~mysnapsession

Dependency ranges changed: mysnapsession

Files

• animalgame/src/Application.hs +1/−1
• clientcount/src/Application.hs +2/−2
• mysnapsession-example.cabal +2/−2

@@ -35,7 +35,7 @@     setHeistState s a = a { templateState = s }  instance HasMemorySessionManager AppState where-    type MemorySessionValue AppState = AppSession+    type MemorySession AppState = AppSession     memorySessionMgr = sessionMgr  data AppSession = AppSession {

@@ -36,7 +36,7 @@     setHeistState s a = a { templateState = s }  instance HasClientSessionManager AppState where-    type ClientSessionValue AppState = Int+    type ClientSession AppState = Int     clientSessionMgr = sessionMgr  sessionKey :: ByteString@@ -46,5 +46,5 @@ appInitializer = do     hPath    <- liftIO $ getDataFileName "clientcount/resources/templates"     heist    <- heistInitializer hPath-    sessions <- clientSessionInitializer sessionKey 0 (Just 10)+    sessions <- clientSessionInitializer sessionKey (Just 10) (return 0)     return $ AppState heist sessions

@@ -1,5 +1,5 @@ Name:                mysnapsession-example-Version:             0.3+Version:             0.3.1 Synopsis:            Example projects using mysnapsession Description:         This is a collection of simple web applications that use                      the mysnapsession package for stateful HTTP.@@ -34,7 +34,7 @@     snap >= 0.3 && < 0.4,     snap-core >= 0.3 && < 0.4,     snap-server >= 0.3 && <0.4,-    mysnapsession == 0.3.*,+    mysnapsession == 0.3.1,     clientsession == 0.4.*    Ghc-options: -threaded -Wall -fwarn-tabs -funbox-strict-fields