rename module

Assistant/DaemonStatus.hs

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

Assistant/Install.hs

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

Assistant/Ssh.hs

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

Assistant/Threads/WebApp.hs

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