add module that only exports abstract types

7 files changed, 23 insertions, 6 deletions

diff --git a/AbstractTypes.hs b/AbstractTypes.hs
new file mode 100644
index 000000000..510a37f0c
--- /dev/null
+++ b/AbstractTypes.hs
@@ -0,0 +1,17 @@
+{- git-annex data types, abstract only -}
+
+module AbstractTypes (
+	Annex,
+	AnnexState,
+	makeAnnexState,
+	runAnnexState,
+	gitAnnex,
+	gitAnnexChange,
+	backendsAnnex,
+	backendsAnnexChange,
+
+	Key,
+	Backend
+) where
+
+import Types
diff --git a/Annex.hs b/Annex.hs
index f55a62c4d..68bf0136a 100644
--- a/Annex.hs
+++ b/Annex.hs
@@ -24,7 +24,7 @@ import Backend
 import BackendList
 import UUID
 import LocationLog
-import Types
+import AbstractTypes
 
 {- Create and returns an Annex state object. 
  - Examines and prepares the git repo.
diff --git a/CmdLine.hs b/CmdLine.hs
index d23508aa2..bb908a2e4 100644
--- a/CmdLine.hs
+++ b/CmdLine.hs
@@ -11,7 +11,7 @@ module CmdLine (
 ) where
 
 import System.Console.GetOpt
-import Types
+import AbstractTypes
 import Annex
 
 data Mode = Add | Push | Pull | Want | Get | Drop | Unannex
diff --git a/LocationLog.hs b/LocationLog.hs
index 28ac46b90..a6d998e0a 100644
--- a/LocationLog.hs
+++ b/LocationLog.hs
@@ -32,7 +32,7 @@ import Data.Char
 import GitRepo
 import Utility
 import UUID
-import Types
+import AbstractTypes
 import Locations
 
 data LogLine = LogLine {
diff --git a/Remotes.hs b/Remotes.hs
index f3af81f23..711cd6c83 100644
--- a/Remotes.hs
+++ b/Remotes.hs
@@ -9,7 +9,7 @@ module Remotes (
 import Control.Monad.State (liftIO)
 import qualified Data.Map as Map
 import Data.String.Utils
-import Types
+import AbstractTypes
 import GitRepo
 import LocationLog
 import Locations
diff --git a/UUID.hs b/UUID.hs
index af6003bfb..f334afdc9 100644
--- a/UUID.hs
+++ b/UUID.hs
@@ -20,7 +20,7 @@ import List
 import System.Cmd.Utils
 import System.IO
 import GitRepo
-import Types
+import AbstractTypes
 
 type UUID = String
 
diff --git a/git-annex.hs b/git-annex.hs
index 935be2f1e..be5168755 100644
--- a/git-annex.hs
+++ b/git-annex.hs
@@ -6,7 +6,7 @@ import System.IO
 import System.Environment
 import Control.Exception
 import CmdLine
-import Types
+import AbstractTypes
 import Annex
 
 main = do