diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-12-09 15:18:25 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-12-09 15:18:54 -0400 |
| commit | 855c0dd645f53da3ad10320605ef4e5e6276305b (patch) | |
| tree | 33835a3172dd5f21c2b1c07a6ae087a55a8195d5 /CmdLine/Seek.hs | |
| parent | 819e710ac27f0e50a83eb5f2036b5c4a041c882c (diff) | |
avoid pre-commit hook messing up new-style unlocked files in v6 repo
Diffstat (limited to 'CmdLine/Seek.hs')
| -rw-r--r-- | CmdLine/Seek.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/CmdLine/Seek.hs b/CmdLine/Seek.hs index 0b6cc1e78..48545ce04 100644 --- a/CmdLine/Seek.hs +++ b/CmdLine/Seek.hs @@ -115,7 +115,7 @@ withPairs a params = seekActions $ return $ map a $ pairs [] params pairs c (x:y:xs) = pairs ((x,y):c) xs pairs _ _ = error "expected pairs" -withFilesToBeCommitted :: (String -> CommandStart) -> CmdParams -> CommandSeek +withFilesToBeCommitted :: (FilePath -> CommandStart) -> CmdParams -> CommandSeek withFilesToBeCommitted a params = seekActions $ prepFiltered a $ seekHelper LsFiles.stagedNotDeleted params |