Hi all,
I'm trying to make a web server that manages its own state. The user can issue commands that modifies the state.
I did like below but unfortunatly the state is not keep after a command is issued...
What is the right way to do it? Is there any example sites with an internal state with happstack?

data Game = (the state of my game)
type NomicServer             = ServerPartT (StateT Game IO)

launchWebServer :: Game -> IO ()
launchWebServer initialState = do
   putStrLn "Starting web server...\nTo connect, drive your browser to \"http://localhost:8000/Login\""
   d <- getDataDir
   simpleHTTP' unpackStateT nullConf $ server d

server :: FilePath -> ServerPartT (StateT Game IO) Response
server d sh = mconcat [fileServe [] d, do
                                   decodeBody (defaultBodyPolicy "/tmp/" 4096 4096 4096)
                                   html <- implSite "http://localhost:8000/" "" nomicSite
                                   return $ toResponse html]

unpackStateT:: Game -> UnWebT (StateT Game IO) Response -> UnWebT IO Response
unpackStateT g w = evalStateT w g

--handler for web routes
nomicSite :: Site PlayerCommand (NomicServer Html)
nomicSite = setDefault (Noop 0) Site {
      handleSite         = \f url -> unRouteT (routedNomicCommands url) f
    , formatPathSegments = \u -> (toPathSegments u, [])
    , parsePathSegments = parseSegments fromPathSegments
}

Thanks a lot,
Corentin