diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-12-07 11:45:01 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-12-07 11:45:01 -0400 |
| commit | 7b76a09671fdd28f171a2614c81d0453fc46ecc4 (patch) | |
| tree | d8074a35fb32189101d10f3994d26080b3c26b02 | |
| parent | ad4890a2a41aee442043c40cf7ebef0f1933ea13 (diff) | |
close tmp file handle
May fix permission problem on windows
| -rw-r--r-- | Assistant/Threads/WebApp.hs | 3 |
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 |