add threadState member, will need this later to access the daemonStatus

This commit is contained in:
Joey Hess 2012-07-26 21:51:56 -04:00
parent 77c3bf7f88
commit e40f94cbcd

View file

@ -31,7 +31,8 @@ thisThread :: String
thisThread = "WebApp"
data WebApp = WebApp
{ daemonStatus :: DaemonStatusHandle
{ threadState :: ThreadState
, daemonStatus :: DaemonStatusHandle
, secretToken :: Text
, baseTitle :: String
, getStatic :: Static
@ -148,7 +149,8 @@ mkWebApp st dstatus = do
else dir
token <- genRandomToken
return $ WebApp
{ daemonStatus = dstatus
{ threadState = st
, daemonStatus = dstatus
, secretToken = pack token
, baseTitle = reldir
, getStatic = $(embed "static")