renamed GitRepo to Git

It was always imported qualified as Git anyway

39 files changed, 45 insertions, 47 deletions

diff --git a/Annex.hs b/Annex.hs
index 82908881d..e2f4a1020 100644
--- a/Annex.hs
+++ b/Annex.hs
@@ -18,7 +18,7 @@ module Annex (
 
 import Control.Monad.State
 
-import qualified GitRepo as Git
+import qualified Git
 import GitQueue
 import Types.Backend
 import Types.Remote
diff --git a/Backend.hs b/Backend.hs
index 78a53d02c..b1cd4c8f0 100644
--- a/Backend.hs
+++ b/Backend.hs
@@ -39,7 +39,7 @@ import System.Posix.Files
 import System.Directory
 
 import Locations
-import qualified GitRepo as Git
+import qualified Git
 import qualified Annex
 import Types
 import Types.Key
diff --git a/Backend/File.hs b/Backend/File.hs
index 1c25f89db..b8d3bb65a 100644
--- a/Backend/File.hs
+++ b/Backend/File.hs
@@ -20,7 +20,7 @@ import Data.String.Utils
 import Types.Backend
 import LocationLog
 import qualified Remote
-import qualified GitRepo as Git
+import qualified Git
 import Content
 import qualified Annex
 import Types
diff --git a/Branch.hs b/Branch.hs
index 5ad89df20..7650fe861 100644
--- a/Branch.hs
+++ b/Branch.hs
@@ -30,7 +30,7 @@ import System.IO.Binary
 import qualified Data.ByteString.Char8 as B
 
 import Types.BranchState
-import qualified GitRepo as Git
+import qualified Git
 import qualified GitUnionMerge
 import qualified Annex
 import Utility
diff --git a/CmdLine.hs b/CmdLine.hs
index ab7236847..85423e5e8 100644
--- a/CmdLine.hs
+++ b/CmdLine.hs
@@ -18,7 +18,7 @@ import Control.Monad (when)
 
 import qualified Annex
 import qualified AnnexQueue
-import qualified GitRepo as Git
+import qualified Git
 import Content
 import Types
 import Command
diff --git a/Command.hs b/Command.hs
index 45a4cc70f..d36f675d2 100644
--- a/Command.hs
+++ b/Command.hs
@@ -21,8 +21,8 @@ import Types
 import qualified Backend
 import Messages
 import qualified Annex
-import qualified GitRepo as Git
-import qualified GitRepo.LsFiles as LsFiles
+import qualified Git
+import qualified Git.LsFiles as LsFiles
 import Utility
 import Types.Key
 
diff --git a/Command/DropUnused.hs b/Command/DropUnused.hs
index 0f9981447..2125abdc3 100644
--- a/Command/DropUnused.hs
+++ b/Command/DropUnused.hs
@@ -20,7 +20,7 @@ import qualified Annex
 import qualified Command.Drop
 import qualified Command.Move
 import qualified Remote
-import qualified GitRepo as Git
+import qualified Git
 import Backend
 import Types.Key
 import Utility
diff --git a/Command/Init.hs b/Command/Init.hs
index 8cde8bb9f..71e87050d 100644
--- a/Command/Init.hs
+++ b/Command/Init.hs
@@ -13,7 +13,7 @@ import System.Directory
 
 import Command
 import qualified Annex
-import qualified GitRepo as Git
+import qualified Git
 import qualified Branch
 import UUID
 import Version
diff --git a/Command/Map.hs b/Command/Map.hs
index 7a9121b69..7bb435ff8 100644
--- a/Command/Map.hs
+++ b/Command/Map.hs
@@ -15,7 +15,7 @@ import Data.List.Utils
 
 import Command
 import qualified Annex
-import qualified GitRepo as Git
+import qualified Git
 import Messages
 import Types
 import Utility
diff --git a/Command/Status.hs b/Command/Status.hs
index 3b096d979..53589030b 100644
--- a/Command/Status.hs
+++ b/Command/Status.hs
@@ -18,7 +18,7 @@ import qualified Types.Backend as B
 import qualified Types.Remote as R
 import qualified Remote
 import qualified Command.Unused
-import qualified GitRepo as Git
+import qualified Git
 import Command
 import Types
 import DataUnits
diff --git a/Command/Unannex.hs b/Command/Unannex.hs
index 0de98b1d3..fe413b25b 100644
--- a/Command/Unannex.hs
+++ b/Command/Unannex.hs
@@ -19,8 +19,8 @@ import qualified Backend
 import LocationLog
 import Types
 import Content
-import qualified GitRepo as Git
-import qualified GitRepo.LsFiles as LsFiles
+import qualified Git
+import qualified Git.LsFiles as LsFiles
 import Messages
 
 command :: [Command]
diff --git a/Command/Uninit.hs b/Command/Uninit.hs
index 9698ed820..c47ac0c3a 100644
--- a/Command/Uninit.hs
+++ b/Command/Uninit.hs
@@ -14,7 +14,7 @@ import Command
 import Messages
 import Types
 import Utility
-import qualified GitRepo as Git
+import qualified Git
 import qualified Annex
 import qualified Command.Unannex
 import qualified Command.Init
diff --git a/Command/Unused.hs b/Command/Unused.hs
index a9d5f90a1..3f51e2c2c 100644
--- a/Command/Unused.hs
+++ b/Command/Unused.hs
@@ -22,8 +22,8 @@ import Locations
 import Utility
 import LocationLog
 import qualified Annex
-import qualified GitRepo as Git
-import qualified GitRepo.LsFiles as LsFiles
+import qualified Git
+import qualified Git.LsFiles as LsFiles
 import qualified Backend
 import qualified Remote
 
diff --git a/Config.hs b/Config.hs
index a324427d4..1016845e7 100644
--- a/Config.hs
+++ b/Config.hs
@@ -10,7 +10,7 @@ module Config where
 import Data.Maybe
 import Control.Monad.State (liftIO)
 
-import qualified GitRepo as Git
+import qualified Git
 import qualified Annex
 import Types
 import Utility
diff --git a/Content.hs b/Content.hs
index d733ad8b3..d24fc9ac7 100644
--- a/Content.hs
+++ b/Content.hs
@@ -36,7 +36,7 @@ import Types
 import Locations
 import LocationLog
 import UUID
-import qualified GitRepo as Git
+import qualified Git
 import qualified Annex
 import qualified AnnexQueue
 import qualified Branch
diff --git a/GitRepo.hs b/Git.hs
index cc4636868..2b0cdd06d 100644
--- a/GitRepo.hs
+++ b/Git.hs
@@ -3,12 +3,12 @@
  - This is written to be completely independant of git-annex and should be
  - suitable for other uses.
  -
- - Copyright 2010 Joey Hess <joey@kitenet.net>
+ - Copyright 2010,2011 Joey Hess <joey@kitenet.net>
  -
  - Licensed under the GNU GPL version 3 or higher.
  -}
 
-module GitRepo (
+module Git (
 	Repo,
 	repoFromCwd,
 	repoFromAbsPath,
diff --git a/GitRepo/LsFiles.hs b/Git/LsFiles.hs
index 16604c319..b88c9144e 100644
--- a/GitRepo/LsFiles.hs
+++ b/Git/LsFiles.hs
@@ -5,7 +5,7 @@
  - Licensed under the GNU GPL version 3 or higher.
  -}
 
-module GitRepo.LsFiles (
+module Git.LsFiles (
 	inRepo,
 	notInRepo,
 	staged,
@@ -15,7 +15,7 @@ module GitRepo.LsFiles (
 	typeChangedStaged,
 ) where
 
-import GitRepo
+import Git
 import Utility
 
 {- Scans for files that are checked into git at the specified locations. -}
diff --git a/GitAnnex.hs b/GitAnnex.hs
index 49ba63b8a..58b512f71 100644
--- a/GitAnnex.hs
+++ b/GitAnnex.hs
@@ -9,7 +9,7 @@ module GitAnnex where
 
 import System.Console.GetOpt
 
-import qualified GitRepo as Git
+import qualified Git
 import CmdLine
 import Command
 import Options
diff --git a/GitQueue.hs b/GitQueue.hs
index be0fcfc4a..5da3ba1d6 100644
--- a/GitQueue.hs
+++ b/GitQueue.hs
@@ -21,7 +21,7 @@ import Data.String.Utils
 import Control.Monad (unless, forM_)
 import Utility
 
-import qualified GitRepo as Git
+import qualified Git
 
 {- An action to perform in a git repository. The file to act on
  - is not included, and must be able to be appended after the params. -}
diff --git a/GitUnionMerge.hs b/GitUnionMerge.hs
index 74579ebcc..84c7b44ea 100644
--- a/GitUnionMerge.hs
+++ b/GitUnionMerge.hs
@@ -18,7 +18,7 @@ import Data.List
 import Data.Maybe
 import Data.String.Utils
 
-import qualified GitRepo as Git
+import qualified Git
 import Utility
 
 {- Performs a union merge between two branches, staging it in the index.
diff --git a/LocationLog.hs b/LocationLog.hs
index 2a2bc6301..b7deb3ed9 100644
--- a/LocationLog.hs
+++ b/LocationLog.hs
@@ -34,7 +34,7 @@ import Control.Monad (when)
 import Data.Maybe
 import Control.Monad.State (liftIO)
 
-import qualified GitRepo as Git
+import qualified Git
 import qualified Branch
 import UUID
 import Types
diff --git a/Locations.hs b/Locations.hs
index bfb0d3af9..6142b2393 100644
--- a/Locations.hs
+++ b/Locations.hs
@@ -36,7 +36,7 @@ import Data.Hash.MD5
 
 import Types
 import Types.Key
-import qualified GitRepo as Git
+import qualified Git
 
 {- Conventions:
  -
diff --git a/Remote/Bup.hs b/Remote/Bup.hs
index c011c979c..11c0ec4da 100644
--- a/Remote/Bup.hs
+++ b/Remote/Bup.hs
@@ -21,7 +21,7 @@ import System.Cmd.Utils
 
 import Types
 import Types.Remote
-import qualified GitRepo as Git
+import qualified Git
 import qualified Annex
 import UUID
 import Locations
diff --git a/Remote/Directory.hs b/Remote/Directory.hs
index 7b5917dca..991ccbe48 100644
--- a/Remote/Directory.hs
+++ b/Remote/Directory.hs
@@ -18,7 +18,7 @@ import System.FilePath
 
 import Types
 import Types.Remote
-import qualified GitRepo as Git
+import qualified Git
 import qualified Annex
 import UUID
 import Locations
diff --git a/Remote/Git.hs b/Remote/Git.hs
index c8290c9a7..471417e34 100644
--- a/Remote/Git.hs
+++ b/Remote/Git.hs
@@ -15,7 +15,7 @@ import System.Posix.Files
 
 import Types
 import Types.Remote
-import qualified GitRepo as Git
+import qualified Git
 import qualified Annex
 import Locations
 import UUID
diff --git a/Remote/Hook.hs b/Remote/Hook.hs
index cc511965f..86a7bca56 100644
--- a/Remote/Hook.hs
+++ b/Remote/Hook.hs
@@ -20,7 +20,7 @@ import System.Exit
 
 import Types
 import Types.Remote
-import qualified GitRepo as Git
+import qualified Git
 import qualified Annex
 import UUID
 import Locations
diff --git a/Remote/Rsync.hs b/Remote/Rsync.hs
index bf1bbd870..aa2507fff 100644
--- a/Remote/Rsync.hs
+++ b/Remote/Rsync.hs
@@ -18,7 +18,7 @@ import System.Posix.Process
 
 import Types
 import Types.Remote
-import qualified GitRepo as Git
+import qualified Git
 import qualified Annex
 import UUID
 import Locations
diff --git a/Remote/S3real.hs b/Remote/S3real.hs
index 2479dfa02..829c58ad0 100644
--- a/Remote/S3real.hs
+++ b/Remote/S3real.hs
@@ -27,7 +27,7 @@ import System.Posix.Env (setEnv)
 import Types
 import Types.Remote
 import Types.Key
-import qualified GitRepo as Git
+import qualified Git
 import qualified Annex
 import UUID
 import Messages
diff --git a/Remote/Special.hs b/Remote/Special.hs
index 7d2ea1d70..9a00dbd82 100644
--- a/Remote/Special.hs
+++ b/Remote/Special.hs
@@ -14,7 +14,7 @@ import Control.Monad.State (liftIO)
 
 import Types
 import Types.Remote
-import qualified GitRepo as Git
+import qualified Git
 import qualified Annex
 import UUID
 import Utility
diff --git a/Ssh.hs b/Ssh.hs
index 0cf2919c2..21e72c083 100644
--- a/Ssh.hs
+++ b/Ssh.hs
@@ -9,7 +9,7 @@ module Ssh where
 
 import Control.Monad.State (liftIO)
 
-import qualified GitRepo as Git
+import qualified Git
 import Utility
 import Types
 import Config
diff --git a/Types/Remote.hs b/Types/Remote.hs
index 01ced04ae..1d67ad5cd 100644
--- a/Types/Remote.hs
+++ b/Types/Remote.hs
@@ -12,7 +12,7 @@ module Types.Remote where
 import Control.Exception
 import Data.Map as M
 
-import qualified GitRepo as Git
+import qualified Git
 import Types.Key
 
 type RemoteConfig = M.Map String String
diff --git a/UUID.hs b/UUID.hs
index 5d8304f83..0723abeca 100644
--- a/UUID.hs
+++ b/UUID.hs
@@ -29,7 +29,7 @@ import System.IO
 import qualified Data.Map as M
 import Data.Maybe
 
-import qualified GitRepo as Git
+import qualified Git
 import qualified Branch
 import Types
 import Types.UUID
diff --git a/Upgrade/V1.hs b/Upgrade/V1.hs
index cb6928fce..39b8e47c5 100644
--- a/Upgrade/V1.hs
+++ b/Upgrade/V1.hs
@@ -25,8 +25,8 @@ import Locations
 import LocationLog
 import qualified Annex
 import qualified AnnexQueue
-import qualified GitRepo as Git
-import qualified GitRepo.LsFiles as LsFiles
+import qualified Git
+import qualified Git.LsFiles as LsFiles
 import Backend
 import Messages
 import Version
diff --git a/Upgrade/V2.hs b/Upgrade/V2.hs
index ea68e78c9..ce0424b30 100644
--- a/Upgrade/V2.hs
+++ b/Upgrade/V2.hs
@@ -16,7 +16,7 @@ import Data.Maybe
 import Types.Key
 import Types
 import qualified Annex
-import qualified GitRepo as Git
+import qualified Git
 import qualified Branch
 import Messages
 import Utility
diff --git a/Version.hs b/Version.hs
index 690e693e2..7e7a4c7ce 100644
--- a/Version.hs
+++ b/Version.hs
@@ -11,7 +11,7 @@ import Control.Monad (unless)
 
 import Types
 import qualified Annex
-import qualified GitRepo as Git
+import qualified Git
 import Config
 
 type Version = String
diff --git a/git-annex-shell.hs b/git-annex-shell.hs
index 55f34e102..c240b1c19 100644
--- a/git-annex-shell.hs
+++ b/git-annex-shell.hs
@@ -8,7 +8,7 @@
 import System.Environment
 import Data.List
 
-import qualified GitRepo as Git
+import qualified Git
 import CmdLine
 import Command
 import Utility
diff --git a/git-annex.hs b/git-annex.hs
index 9d6012f2c..a53697cdb 100644
--- a/git-annex.hs
+++ b/git-annex.hs
@@ -10,6 +10,4 @@ import System.Environment
 import GitAnnex
 
 main :: IO ()
-main = do
-	args <- getArgs
-	run args
+main = run =<< getArgs
diff --git a/git-union-merge.hs b/git-union-merge.hs
index 57232be67..4939fb57d 100644
--- a/git-union-merge.hs
+++ b/git-union-merge.hs
@@ -11,7 +11,7 @@ import System.Directory
 import Control.Monad (when)
 
 import qualified GitUnionMerge
-import qualified GitRepo as Git
+import qualified Git
 
 header :: String
 header = "Usage: git-union-merge ref ref newref"
diff --git a/test.hs b/test.hs
index 972981821..44a792f14 100644
--- a/test.hs
+++ b/test.hs
@@ -27,7 +27,7 @@ import System.IO.HVFS (SystemFS(..))
 import qualified Annex
 import qualified BackendList
 import qualified Backend
-import qualified GitRepo as Git
+import qualified Git
 import qualified Locations
 import qualified Utility
 import qualified Types.Backend