From a2f241d50344726831ece2a354a599f389b20b54 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 14 Feb 2012 00:22:42 -0400 Subject: fix LsFiles.typeChanged paths Passing absolute paths to Command.Add used to work, but after recent changes doesn't. All LsFiles should use relative paths anyway, so fix it there. --- Seek.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'Seek.hs') diff --git a/Seek.hs b/Seek.hs index a9c034d22..7f5506316 100644 --- a/Seek.hs +++ b/Seek.hs @@ -58,10 +58,8 @@ withFilesUnlockedToBeCommitted = withFilesUnlocked' LsFiles.typeChangedStaged withFilesUnlocked' :: ([FilePath] -> Git.Repo -> IO [FilePath]) -> (FilePath -> CommandStart) -> CommandSeek withFilesUnlocked' typechanged a params = do -- unlocked files have changed type from a symlink to a regular file - top <- fromRepo Git.workTree typechangedfiles <- seekHelper typechanged params - let unlockedfiles = liftIO $ filterM notSymlink $ - map (\f -> top ++ "/" ++ f) typechangedfiles + let unlockedfiles = liftIO $ filterM notSymlink typechangedfiles prepFiltered a unlockedfiles withKeys :: (Key -> CommandStart) -> CommandSeek -- cgit v1.2.3