From 6a6ea06cee8ce69f391f7ce78b98b8f26a599e66 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 5 Oct 2011 16:02:51 -0400 Subject: rename --- Annex/Branch.hs | 2 +- Annex/CatFile.hs | 2 +- Annex/Common.hs | 13 ------------- Annex/Content.hs | 2 +- Annex/Exception.hs | 2 +- Annex/Queue.hs | 2 +- Annex/Version.hs | 2 +- 7 files changed, 6 insertions(+), 19 deletions(-) delete mode 100644 Annex/Common.hs (limited to 'Annex') diff --git a/Annex/Branch.hs b/Annex/Branch.hs index c6db9deca..0b4bea051 100644 --- a/Annex/Branch.hs +++ b/Annex/Branch.hs @@ -22,7 +22,7 @@ import System.IO.Binary import System.Exit import qualified Data.ByteString.Lazy.Char8 as L -import Annex.Common +import Common.Annex import Annex.Exception import Types.BranchState import qualified Git diff --git a/Annex/CatFile.hs b/Annex/CatFile.hs index 4f98815f8..2707ed3ea 100644 --- a/Annex/CatFile.hs +++ b/Annex/CatFile.hs @@ -9,7 +9,7 @@ module Annex.CatFile ( catFile ) where -import Annex.Common +import Common.Annex import qualified Git.CatFile import qualified Annex diff --git a/Annex/Common.hs b/Annex/Common.hs deleted file mode 100644 index ca7b1bff7..000000000 --- a/Annex/Common.hs +++ /dev/null @@ -1,13 +0,0 @@ -module Annex.Common ( - module Common, - module Types, - module Annex, - module Locations, - module Messages, -) where - -import Common -import Types -import Annex (gitRepo) -import Locations -import Messages diff --git a/Annex/Content.hs b/Annex/Content.hs index a3fa79da8..21403954a 100644 --- a/Annex/Content.hs +++ b/Annex/Content.hs @@ -21,7 +21,7 @@ module Annex.Content ( saveState ) where -import Annex.Common +import Common.Annex import LocationLog import UUID import qualified Git diff --git a/Annex/Exception.hs b/Annex/Exception.hs index 7ea8fb89a..c147439a1 100644 --- a/Annex/Exception.hs +++ b/Annex/Exception.hs @@ -15,7 +15,7 @@ import Control.Exception.Control (handle) import Control.Monad.IO.Control (liftIOOp) import Control.Exception hiding (handle, throw) -import Annex.Common +import Common.Annex {- Runs an Annex action, with setup and cleanup both in the IO monad. -} bracketIO :: IO c -> (c -> IO b) -> Annex a -> Annex a diff --git a/Annex/Queue.hs b/Annex/Queue.hs index 8d0a32bec..4c1182750 100644 --- a/Annex/Queue.hs +++ b/Annex/Queue.hs @@ -11,7 +11,7 @@ module Annex.Queue ( flushWhenFull ) where -import Annex.Common +import Common.Annex import Annex import qualified Git.Queue diff --git a/Annex/Version.hs b/Annex/Version.hs index e501dbf2e..935f777ab 100644 --- a/Annex/Version.hs +++ b/Annex/Version.hs @@ -7,7 +7,7 @@ module Annex.Version where -import Annex.Common +import Common.Annex import qualified Git import Config -- cgit v1.2.3