diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-07-31 11:19:40 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-07-31 11:19:40 -0400 |
| commit | b9b009787662cda4948b3c9706b8897587d05d8a (patch) | |
| tree | 6842d1f714f4e0f1a8cddb556bf9336cf8a7de5c /Assistant/Threads/WebApp.hs | |
| parent | e9d9d9d5ea36c9d20913470079db9ea8ac0db994 (diff) | |
tweak types so the webapp can run without a threadstate when outside an annex
Diffstat (limited to 'Assistant/Threads/WebApp.hs')
| -rw-r--r-- | Assistant/Threads/WebApp.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/Threads/WebApp.hs b/Assistant/Threads/WebApp.hs index ca81498f4..9cdbae451 100644 --- 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 |