add module that only exports abstract types
This commit is contained in:
parent
e47dca162a
commit
eda80e44c5
7 changed files with 23 additions and 6 deletions
17
AbstractTypes.hs
Normal file
17
AbstractTypes.hs
Normal 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
|
2
Annex.hs
2
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.
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -32,7 +32,7 @@ import Data.Char
|
|||
import GitRepo
|
||||
import Utility
|
||||
import UUID
|
||||
import Types
|
||||
import AbstractTypes
|
||||
import Locations
|
||||
|
||||
data LogLine = LogLine {
|
||||
|
|
|
@ -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
|
||||
|
|
2
UUID.hs
2
UUID.hs
|
@ -20,7 +20,7 @@ import List
|
|||
import System.Cmd.Utils
|
||||
import System.IO
|
||||
import GitRepo
|
||||
import Types
|
||||
import AbstractTypes
|
||||
|
||||
type UUID = String
|
||||
|
||||
|
|
|
@ -6,7 +6,7 @@ import System.IO
|
|||
import System.Environment
|
||||
import Control.Exception
|
||||
import CmdLine
|
||||
import Types
|
||||
import AbstractTypes
|
||||
import Annex
|
||||
|
||||
main = do
|
||||
|
|
Loading…
Reference in a new issue