blob: ed4529dead5a9b1237024f37a1627350ccc42b69 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
{- 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)
|
