From eda80e44c5fb399fa4e5625388d6e0f993b0f779 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Thu, 14 Oct 2010 02:12:41 -0400
Subject: [PATCH] add module that only exports abstract types

---
 AbstractTypes.hs | 17 +++++++++++++++++
 Annex.hs         |  2 +-
 CmdLine.hs       |  2 +-
 LocationLog.hs   |  2 +-
 Remotes.hs       |  2 +-
 UUID.hs          |  2 +-
 git-annex.hs     |  2 +-
 7 files changed, 23 insertions(+), 6 deletions(-)
 create mode 100644 AbstractTypes.hs

diff --git a/AbstractTypes.hs b/AbstractTypes.hs
new file mode 100644
index 0000000000..510a37f0cc
--- /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 f55a62c4d6..68bf0136a9 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 d23508aa27..bb908a2e40 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 28ac46b90c..a6d998e0af 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 f3af81f23d..711cd6c83a 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 af6003bfb7..f334afdc9d 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 935be2f1ef..be5168755f 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