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"
|
thisThread = "WebApp"
|
||||||
|
|
||||||
data WebApp = WebApp
|
data WebApp = WebApp
|
||||||
{ daemonStatus :: DaemonStatusHandle
|
{ threadState :: ThreadState
|
||||||
|
, daemonStatus :: DaemonStatusHandle
|
||||||
, secretToken :: Text
|
, secretToken :: Text
|
||||||
, baseTitle :: String
|
, baseTitle :: String
|
||||||
, getStatic :: Static
|
, getStatic :: Static
|
||||||
|
@ -148,7 +149,8 @@ mkWebApp st dstatus = do
|
||||||
else dir
|
else dir
|
||||||
token <- genRandomToken
|
token <- genRandomToken
|
||||||
return $ WebApp
|
return $ WebApp
|
||||||
{ daemonStatus = dstatus
|
{ threadState = st
|
||||||
|
, daemonStatus = dstatus
|
||||||
, secretToken = pack token
|
, secretToken = pack token
|
||||||
, baseTitle = reldir
|
, baseTitle = reldir
|
||||||
, getStatic = $(embed "static")
|
, getStatic = $(embed "static")
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue