diff options
Diffstat (limited to 'Assistant')
| -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 |