summaryrefslogtreecommitdiff
path: root/Command/InitRemote.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-10-15 16:21:08 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-10-15 16:21:08 -0400
commit1a29b5b52eec641a5456d7c8dc24356c90107bc0 (patch)
tree0b902c278129bd085e8db986af168a4e46d3dea6 /Command/InitRemote.hs
parent279150ccd5ad937a44cbff798ab7bb118ad1dbee (diff)
reorganize log modules
no code changes
Diffstat (limited to 'Command/InitRemote.hs')
-rw-r--r--Command/InitRemote.hs12
1 files changed, 6 insertions, 6 deletions
diff --git a/Command/InitRemote.hs b/Command/InitRemote.hs
index 918604f85..240528b87 100644
--- a/Command/InitRemote.hs
+++ b/Command/InitRemote.hs
@@ -12,9 +12,9 @@ import qualified Data.Map as M
import Common.Annex
import Command
import qualified Remote
-import qualified RemoteLog
+import qualified Logs.Remote
import qualified Types.Remote as R
-import UUID
+import Logs.UUID
command :: [Command]
command = [repoCommand "initremote"
@@ -38,7 +38,7 @@ start ws = do
where
name = head ws
- config = RemoteLog.keyValToConfig $ tail ws
+ config = Logs.Remote.keyValToConfig $ tail ws
needname = do
let err s = error $ "Specify a name for the remote. " ++ s
names <- remoteNames
@@ -54,13 +54,13 @@ perform t u c = do
cleanup :: UUID -> R.RemoteConfig -> CommandCleanup
cleanup u c = do
- RemoteLog.configSet u c
+ Logs.Remote.configSet u c
return True
{- Look up existing remote's UUID and config by name, or generate a new one -}
findByName :: String -> Annex (UUID, R.RemoteConfig)
findByName name = do
- m <- RemoteLog.readRemoteLog
+ m <- Logs.Remote.readRemoteLog
maybe generate return $ findByName' name m
where
generate = do
@@ -79,7 +79,7 @@ findByName' n m = if null matches then Nothing else Just $ head matches
remoteNames :: Annex [String]
remoteNames = do
- m <- RemoteLog.readRemoteLog
+ m <- Logs.Remote.readRemoteLog
return $ mapMaybe (M.lookup nameKey . snd) $ M.toList m
{- find the specified remote type -}