summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Annex.hs2
-rw-r--r--Backend.hs2
-rw-r--r--Backend/File.hs2
-rw-r--r--Branch.hs2
-rw-r--r--CmdLine.hs2
-rw-r--r--Command.hs4
-rw-r--r--Command/DropUnused.hs2
-rw-r--r--Command/Init.hs2
-rw-r--r--Command/Map.hs2
-rw-r--r--Command/Status.hs2
-rw-r--r--Command/Unannex.hs4
-rw-r--r--Command/Uninit.hs2
-rw-r--r--Command/Unused.hs4
-rw-r--r--Config.hs2
-rw-r--r--Content.hs2
-rw-r--r--Git.hs (renamed from GitRepo.hs)4
-rw-r--r--Git/LsFiles.hs (renamed from GitRepo/LsFiles.hs)4
-rw-r--r--GitAnnex.hs2
-rw-r--r--GitQueue.hs2
-rw-r--r--GitUnionMerge.hs2
-rw-r--r--LocationLog.hs2
-rw-r--r--Locations.hs2
-rw-r--r--Remote/Bup.hs2
-rw-r--r--Remote/Directory.hs2
-rw-r--r--Remote/Git.hs2
-rw-r--r--Remote/Hook.hs2
-rw-r--r--Remote/Rsync.hs2
-rw-r--r--Remote/S3real.hs2
-rw-r--r--Remote/Special.hs2
-rw-r--r--Ssh.hs2
-rw-r--r--Types/Remote.hs2
-rw-r--r--UUID.hs2
-rw-r--r--Upgrade/V1.hs4
-rw-r--r--Upgrade/V2.hs2
-rw-r--r--Version.hs2
-rw-r--r--git-annex-shell.hs2
-rw-r--r--git-annex.hs4
-rw-r--r--git-union-merge.hs2
-rw-r--r--test.hs2
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