cgi-utils 0.0 → 0.1

raw patch · 2 files changed

+8/−3 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• cgi-utils.cabal +1/−1
• src/Network/CGI/Session.hs +7/−2

@@ -1,5 +1,5 @@ Name: cgi-utils-Version: 0.0+Version: 0.1 Maintainer: Chris Done (chrisdone@gmail.com) Author: Chris Done (chrisdone@gmail.com) Copyright: 2010 Chris Done

@@ -1,6 +1,6 @@ module Network.CGI.Session      (-- * Types-     Session+     Session(..)     ,Sessions     ,SessionName     ,SessionM@@ -8,6 +8,7 @@     ,makeSessions     ,initSession     ,updateSession+    ,sessionId     -- * A simple Session monad.     ,runSessionCGI     ,runSession@@ -22,7 +23,7 @@ import Control.Applicative import Control.Concurrent.MVar (MVar,modifyMVar,readMVar,modifyMVar_,newMVar) import Control.Monad.Trans (liftIO,lift)-import Control.Monad.State (StateT,evalStateT,get,modify)+import Control.Monad.State (StateT,evalStateT,get,modify,gets) import Foreign.Marshal.Alloc (alloca) import Foreign.Storable (peek,sizeOf) import Data.Function@@ -76,6 +77,10 @@ sessionDel k =     modify $ \s@Session{sess_values = vs} ->         s {sess_values = M.delete k vs }++-- | Session value getter.+sessionId :: SessionM Integer+sessionId = gets sess_id  -- | A session consists of a unique id and a map. data Session = Session