tweak types so the webapp can run without a threadstate when outside an annex

2012-07-31 11:19:40 -04:00 · 2012-07-31 11:19:40 -04:00 · b9b0097876
commit b9b0097876
parent e9d9d9d5ea
4 changed files with 14 additions and 6 deletions
--- a/Assistant/Threads/WebApp.hs
+++ b/Assistant/Threads/WebApp.hs
@ -59,7 +59,7 @@ webAppThread st dstatus transferqueue onstartup = do
 			token <- genRandomToken 
 			s <- newWebAppState
 			return $ WebApp 
-				{ threadState = st
+				{ threadState = Just st
 				, daemonStatus = dstatus
 				, transferQueue = transferqueue
 				, secretToken = pack token