diff options
author | Joey Hess <joey@kitenet.net> | 2013-05-24 23:07:26 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2013-05-24 23:07:26 -0400 |
commit | de99b5f96633c6e46fe290dd327417436d86a340 (patch) | |
tree | ae7ed653b2da31319e79b5acf4e9dd6ad2e0c675 /Annex.hs | |
parent | b2a2c996ad935e87b1f28eb77d12a895986073af (diff) |
refactor
Diffstat (limited to 'Annex.hs')
-rw-r--r-- | Annex.hs | 8 |
1 files changed, 1 insertions, 7 deletions
@@ -10,7 +10,6 @@ module Annex ( Annex, AnnexState(..), - FileInfo(..), PreferredContentMap, new, newState, @@ -55,6 +54,7 @@ import Types.TrustLevel import Types.Group import Types.Messages import Types.UUID +import Types.FileMatcher import qualified Utility.Matcher import qualified Data.Map as M import qualified Data.Set as S @@ -74,12 +74,6 @@ newtype Annex a = Annex { runAnnex :: ReaderT (MVar AnnexState) IO a } ) type Matcher a = Either [Utility.Matcher.Token a] (Utility.Matcher.Matcher a) - -data FileInfo = FileInfo - { relFile :: FilePath -- may be relative to cwd - , matchFile :: FilePath -- filepath to match on; may be relative to top - } - type PreferredContentMap = M.Map UUID (Utility.Matcher.Matcher (S.Set UUID -> FileInfo -> Annex Bool)) -- internal state storage |