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 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.
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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 {
|
||||||
|
|
|
@ -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
|
||||||
|
|
2
UUID.hs
2
UUID.hs
|
@ -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
|
||||||
|
|
||||||
|
|
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue