diff options
| -rw-r--r-- | Assistant/Threads/WebApp.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Assistant/Threads/WebApp.hs b/Assistant/Threads/WebApp.hs index 0e1f9ba95..593c43eae 100644 --- a/Assistant/Threads/WebApp.hs +++ b/Assistant/Threads/WebApp.hs @@ -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") |