rename module

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

View file

@ -9,7 +9,7 @@ module Assistant.DaemonStatus where
import Assistant.Common
import Assistant.Alert.Utility
import Utility.TempFile
import Utility.Tmp
import Assistant.Types.NetMessager
import Utility.NotificationBroadcaster
import Logs.Transfer

View file

@ -16,7 +16,7 @@ import Assistant.Ssh
import Config.Files
import Utility.FileMode
import Utility.Shell
import Utility.TempFile
import Utility.Tmp
import Utility.Env
#ifdef darwin_HOST_OS

View file

@ -8,7 +8,7 @@
module Assistant.Ssh where
import Common.Annex
import Utility.TempFile
import Utility.Tmp
import Utility.UserInfo
import Utility.Shell
import Git.Remote
@ -146,7 +146,7 @@ authorizedKeysLine rsynconly dir pubkey
{- Generates a ssh key pair. -}
genSshKeyPair :: IO SshKeyPair
genSshKeyPair = withTempDir "git-annex-keygen" $ \dir -> do
genSshKeyPair = withTmpDir "git-annex-keygen" $ \dir -> do
ok <- boolSystem "ssh-keygen"
[ Param "-P", Param "" -- no password
, Param "-f", File $ dir </> "key"

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