add module that only exports abstract types

This commit is contained in:
Joey Hess 2010-10-14 02:12:41 -04:00
parent e47dca162a
commit eda80e44c5
7 changed files with 23 additions and 6 deletions

17
AbstractTypes.hs Normal file
View file

@ -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

View file

@ -24,7 +24,7 @@ import Backend
import BackendList import BackendList
import UUID import UUID
import LocationLog import LocationLog
import Types import AbstractTypes
{- Create and returns an Annex state object. {- Create and returns an Annex state object.
- Examines and prepares the git repo. - Examines and prepares the git repo.

View file

@ -11,7 +11,7 @@ module CmdLine (
) where ) where
import System.Console.GetOpt import System.Console.GetOpt
import Types import AbstractTypes
import Annex import Annex
data Mode = Add | Push | Pull | Want | Get | Drop | Unannex data Mode = Add | Push | Pull | Want | Get | Drop | Unannex

View file

@ -32,7 +32,7 @@ import Data.Char
import GitRepo import GitRepo
import Utility import Utility
import UUID import UUID
import Types import AbstractTypes
import Locations import Locations
data LogLine = LogLine { data LogLine = LogLine {

View file

@ -9,7 +9,7 @@ module Remotes (
import Control.Monad.State (liftIO) import Control.Monad.State (liftIO)
import qualified Data.Map as Map import qualified Data.Map as Map
import Data.String.Utils import Data.String.Utils
import Types import AbstractTypes
import GitRepo import GitRepo
import LocationLog import LocationLog
import Locations import Locations

View file

@ -20,7 +20,7 @@ import List
import System.Cmd.Utils import System.Cmd.Utils
import System.IO import System.IO
import GitRepo import GitRepo
import Types import AbstractTypes
type UUID = String type UUID = String

View file

@ -6,7 +6,7 @@ import System.IO
import System.Environment import System.Environment
import Control.Exception import Control.Exception
import CmdLine import CmdLine
import Types import AbstractTypes
import Annex import Annex
main = do main = do