make adding modified files work on crippled filesystems

1 files changed, 5 insertions, 0 deletions

diff --git a/Seek.hs b/Seek.hs
index a531d2247..6f87e8e6c 100644
--- a/Seek.hs
+++ b/Seek.hs
@@ -88,6 +88,11 @@ withFilesUnlocked' typechanged a params = do
 	let unlockedfiles = liftIO $ filterM notSymlink typechangedfiles
 	prepFiltered a unlockedfiles
 
+{- Finds files that may be modified. -}
+withFilesMaybeModified :: (FilePath -> CommandStart) -> CommandSeek
+withFilesMaybeModified a params =
+	prepFiltered a $ seekHelper LsFiles.modified params
+
 withKeys :: (Key -> CommandStart) -> CommandSeek
 withKeys a params = return $ map (a . parse) params
   where