230bfa9688
New --want-get and --want-drop options which can be used to test preferred content settings. For example, "git annex find --in . --want-drop"
21 lines
502 B
Haskell
21 lines
502 B
Haskell
{- git-annex limits by wanted status
|
|
-
|
|
- Copyright 2012 Joey Hess <joey@kitenet.net>
|
|
-
|
|
- Licensed under the GNU GPL version 3 or higher.
|
|
-}
|
|
|
|
module Limit.Wanted where
|
|
|
|
import Common.Annex
|
|
import Annex.Wanted
|
|
import Limit
|
|
import Types.FileMatcher
|
|
|
|
addWantGet :: Annex ()
|
|
addWantGet = addLimit $ Right $ const $
|
|
\fileinfo -> wantGet False (Just $ matchFile fileinfo)
|
|
|
|
addWantDrop :: Annex ()
|
|
addWantDrop = addLimit $ Right $ const $
|
|
\fileinfo -> wantDrop False Nothing (Just $ matchFile fileinfo)
|