diff options
Diffstat (limited to 'Command/Fix.hs')
| -rw-r--r-- | Command/Fix.hs | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/Command/Fix.hs b/Command/Fix.hs index c4e5e52ee..6a27878e3 100644 --- a/Command/Fix.hs +++ b/Command/Fix.hs @@ -18,12 +18,13 @@ import Utility.Touch #endif #endif -cmd :: [Command] -cmd = [notDirect $ noCommit $ withOptions annexedMatchingOptions $ - command "fix" paramPaths seek - SectionMaintenance "fix up symlinks to point to annexed content"] +cmd :: Command +cmd = notDirect $ noCommit $ withOptions annexedMatchingOptions $ + command "fix" paramPaths + SectionMaintenance "fix up symlinks to point to annexed content" + (commandParser seek) -seek :: CommandSeek +seek :: CmdParams -> CommandSeek seek = withFilesInGit $ whenAnnexed start {- Fixes the symlink to an annexed file. -} |