summaryrefslogtreecommitdiff
path: root/Command/WebApp.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Command/WebApp.hs')
-rw-r--r--Command/WebApp.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/WebApp.hs b/Command/WebApp.hs
index 87a648bdd..4dff8c9d1 100644
--- a/Command/WebApp.hs
+++ b/Command/WebApp.hs
@@ -154,7 +154,7 @@ firstRun o = do
- threadstate. -}
let st = error "annex state not available"
{- Get a DaemonStatus without running in the Annex monad. -}
- dstatus <- atomically . newTMVar =<< newDaemonStatus
+ dstatus <- atomically . newTVar =<< newDaemonStatus
d <- newAssistantData st dstatus
urlrenderer <- newUrlRenderer
v <- newEmptyMVar