mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

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

Browse source
This commit is contained in:
Joey Hess 2012-07-26 21:51:56 -04:00
parent 77c3bf7f88
commit e40f94cbcd
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Assistant/Threads/WebApp.hs
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")