mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

golf

Browse source
This commit is contained in:
Joey Hess 2011-09-19 01:03:16 -04:00
parent c31a6a9e10
commit 6e80f19514
1 changed files with 1 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
Limit.hs
View file

@ -9,7 +9,6 @@ module Limit where
import Text.Regex.PCRE.Light.Char8 import Text.Regex.PCRE.Light.Char8
import System.Path.WildMatch import System.Path.WildMatch
import Control.Monad (filterM)
import Control.Applicative import Control.Applicative
import Data.Maybe import Data.Maybe
@ -29,9 +28,7 @@ limited = (not . Utility.Matcher.matchesAny) <$> getMatcher'
{- Gets a matcher for the user-specified limits. The matcher is cached for {- Gets a matcher for the user-specified limits. The matcher is cached for
- speed; once it's obtained the user-specified limits can't change. -} - speed; once it's obtained the user-specified limits can't change. -}
getMatcher :: Annex (FilePath -> Annex Bool) getMatcher :: Annex (FilePath -> Annex Bool)
getMatcher = do getMatcher = Utility.Matcher.matchM <$> getMatcher'
m <- getMatcher'
return $ Utility.Matcher.matchM m
getMatcher' :: Annex (Utility.Matcher.Matcher (FilePath -> Annex Bool)) getMatcher' :: Annex (Utility.Matcher.Matcher (FilePath -> Annex Bool))
getMatcher' = do getMatcher' = do