mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions 1

close tmp file handle

Browse source 
May fix permission problem on windows
This commit is contained in:
Joey Hess 2013-12-07 11:45:01 -04:00
parent fe7d6d524e
commit a38abecd66
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Assistant/Threads/WebApp.hs
View file

@ -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