refactor

Annex/FileMatcher.hs

@@ -13,6 +13,7 @@ import Common.Annex
 import Limit
 import Utility.Matcher
 import Types.Group
+import Types.Limit
 import Logs.Group
 import Logs.Remote
 import Annex.UUID

Limit.hs

@@ -27,6 +27,7 @@ import Types.TrustLevel
 import Types.Key
 import Types.Group
 import Types.FileMatcher
+import Types.Limit
 import Logs.Group
 import Utility.HumanTime
 import Utility.DataUnits
@@ -41,10 +42,6 @@ import Types.FileMatcher
 #endif
 #endif
 
-type MatchFiles = AssumeNotPresent -> FileInfo -> Annex Bool
-type MkLimit = String -> Either String MatchFiles
-type AssumeNotPresent = S.Set UUID
-
 {- Checks if there are user-specified limits. -}
 limited :: Annex Bool
 limited = (not . Utility.Matcher.isEmpty) <$> getMatcher'

Logs/PreferredContent.hs

@@ -26,10 +26,10 @@ import qualified Annex.Branch
 import qualified Annex
 import Logs
 import Logs.UUIDBased
-import Limit
 import qualified Utility.Matcher
 import Annex.FileMatcher
 import Annex.UUID
+import Types.Limit
 import Types.Group
 import Types.Remote (RemoteConfig)
 import Logs.Group

Types/Limit.hs

@@ -0,0 +1,19 @@
+{- types for limits
+ -
+ - Copyright 2013 Joey Hess <joey@kitenet.net>
+ -
+ - Licensed under the GNU GPL version 3 or higher.
+ -}
+
+{-# LANGUAGE CPP #-}
+
+module Types.Limit where
+
+import Common.Annex
+import Types.FileMatcher
+
+import qualified Data.Set as S
+
+type MatchFiles = AssumeNotPresent -> FileInfo -> Annex Bool
+type MkLimit = String -> Either String MatchFiles
+type AssumeNotPresent = S.Set UUID