diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-07-26 21:51:56 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-07-26 21:51:56 -0400 |
| commit | e40f94cbcdcacebb8215ee16b5c575ca865ad810 (patch) | |
| tree | c5e5149ad14e04f3f8aa74fc075f1ce8099059e5 | |
| parent | 77c3bf7f887933cf953d5983b849796ea075bfca (diff) | |
add threadState member, will need this later to access the daemonStatus
| -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") |