diff options
author | Joey Hess <joey@kitenet.net> | 2013-05-24 23:07:26 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2013-05-24 23:07:26 -0400 |
commit | de99b5f96633c6e46fe290dd327417436d86a340 (patch) | |
tree | ae7ed653b2da31319e79b5acf4e9dd6ad2e0c675 /Seek.hs | |
parent | b2a2c996ad935e87b1f28eb77d12a895986073af (diff) |
refactor
Diffstat (limited to 'Seek.hs')
-rw-r--r-- | Seek.hs | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -16,6 +16,7 @@ import System.PosixCompat.Files import Common.Annex import Types.Command import Types.Key +import Types.FileMatcher import qualified Annex import qualified Git import qualified Git.Command @@ -126,7 +127,7 @@ prepFiltered a fs = do matcher <- Limit.getMatcher map (process matcher) <$> fs where - process matcher f = ifM (matcher $ Annex.FileInfo f f) + process matcher f = ifM (matcher $ FileInfo f f) ( a f , return Nothing ) notSymlink :: FilePath -> IO Bool |