rename

Command/Fsck.hs

@@ -26,7 +26,7 @@ import Content
 import LocationLog
 import Locations
 import Trust
-import DataUnits
+import Utility.DataUnits
 import Config
 
 command :: [Command]

Command/Map.hs

@@ -21,8 +21,8 @@ import Types
 import Utility
 import UUID
 import Trust
-import Ssh
-import qualified Dot
+import Remote.Ssh
+import qualified Utility.Dot as Dot
 
 -- a link from the first repository to the second (its remote)
 data Link = Link Git.Repo Git.Repo

Command/Status.hs

@@ -21,7 +21,7 @@ import qualified Command.Unused
 import qualified Git
 import Command
 import Types
-import DataUnits
+import Utility.DataUnits
 import Content
 import Types.Key
 import Locations

Content.hs

@@ -43,7 +43,7 @@ import qualified Branch
 import Utility
 import StatFS
 import Types.Key
-import DataUnits
+import Utility.DataUnits
 import Config
 
 {- Checks if a given key is currently present in the gitAnnexLocation. -}

Remote/Bup.hs

@@ -28,7 +28,7 @@ import Locations
 import Config
 import Utility
 import Messages
-import Ssh
+import Remote.Ssh
 import Remote.Special
 import Remote.Encryptable
 import Crypto

Remote/Git.hs

@@ -24,7 +24,7 @@ import qualified Content
 import Messages
 import Utility.CopyFile
 import Utility.RsyncFile
-import Ssh
+import Remote.Ssh
 import Config
 
 remote :: RemoteType Annex

Remote/Ssh.hs

@@ -1,11 +1,11 @@
-{- git-annex repository access with ssh
+{- git-annex remote access with ssh
  -
  - Copyright 2011 Joey Hess <joey@kitenet.net>
  -
  - Licensed under the GNU GPL version 3 or higher.
  -}
 
-module Ssh where
+module Remote.Ssh where
 
 import Control.Monad.State (liftIO)
 

Utility/DataUnits.hs

@@ -5,7 +5,7 @@
  - Licensed under the GNU GPL version 3 or higher.
  -}
 
-module DataUnits (
+module Utility.DataUnits (
 	dataUnits,
 	storageUnits,
 	memoryUnits,

Utility/Dot.hs

@@ -5,7 +5,7 @@
  - Licensed under the GNU GPL version 3 or higher.
  -}
 
-module Dot where -- import qualified
+module Utility.Dot where -- import qualified
 
 {- generates a graph description from a list of lines -}
 graph :: [String] -> String