summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-12-07 11:45:01 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-12-07 11:45:01 -0400
commit7b76a09671fdd28f171a2614c81d0453fc46ecc4 (patch)
treed8074a35fb32189101d10f3994d26080b3c26b02
parentad4890a2a41aee442043c40cf7ebef0f1933ea13 (diff)
close tmp file handle
May fix permission problem on windows
-rw-r--r--Assistant/Threads/WebApp.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/Assistant/Threads/WebApp.hs b/Assistant/Threads/WebApp.hs
index 2ad61168e..a7f9cc5b2 100644
--- a/Assistant/Threads/WebApp.hs
+++ b/Assistant/Threads/WebApp.hs
@@ -80,7 +80,8 @@ webAppThread assistantdata urlrenderer noannex cannotrun listenhost postfirstrun
, return app
)
runWebApp listenhost app' $ \addr -> if noannex
- then withTmpFile "webapp.html" $ \tmpfile _ ->
+ then withTmpFile "webapp.html" $ \tmpfile h -> do
+ hClose h
go addr webapp tmpfile Nothing
else do
let st = threadState assistantdata