20 lines
401 B
Haskell
20 lines
401 B
Haskell
|
{- 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
|