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

rename module

Browse source
This commit is contained in:
Joey Hess 2013-05-12 19:19:28 -04:00
parent 92910f5107
commit 25a8d4b11c
14 changed files with 28 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Assistant/Threads/WebApp.hs
View file

@ -33,7 +33,7 @@ import Assistant.WebApp.Control
import Assistant.WebApp.OtherRepos
import Assistant.Types.ThreadedMonad
import Utility.WebApp
import Utility.TempFile
import Utility.Tmp
import Utility.FileMode
import Git
@ -74,7 +74,7 @@ webAppThread assistantdata urlrenderer noannex listenhost postfirstrun onstartup
, return app
)
runWebApp listenhost app' $ \addr -> if noannex
then withTempFile "webapp.html" $ \tmpfile _ ->
then withTmpFile "webapp.html" $ \tmpfile _ ->
go addr webapp tmpfile Nothing
else do
let st = threadState assistantdata