summaryrefslogtreecommitdiff
path: root/Command/WebApp.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2016-09-30 19:51:16 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2016-09-30 19:51:16 -0400
commitd684c2f53135f51872c112732acc4079b2d4693d (patch)
treed7a6895a1b2874d436fb094625174859c325bac8 /Command/WebApp.hs
parent0a588575977bc74a61917801477e03da3897507d (diff)
convert TMVars that are never left empty into TVars
This is probably more efficient, and it avoids mistakenly leaving them empty.
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