add threadState member, will need this later to access the daemonStatus
This commit is contained in:
parent
77c3bf7f88
commit
e40f94cbcd
1 changed files with 4 additions and 2 deletions
|
@ -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")
|
||||
|
|
Loading…
Add table
Reference in a new issue