diff options
Diffstat (limited to 'Command/Fix.hs')
| -rw-r--r-- | Command/Fix.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Command/Fix.hs b/Command/Fix.hs index d898ce517..60627e9df 100644 --- a/Command/Fix.hs +++ b/Command/Fix.hs @@ -30,17 +30,17 @@ start file = isAnnexed file $ \(key, _) -> do link <- calcGitLink file key l <- liftIO $ readSymbolicLink file if link == l - then return Nothing + then stop else do showStart "fix" file - return $ Just $ perform file link + next $ perform file link perform :: FilePath -> FilePath -> CommandPerform perform file link = do liftIO $ createDirectoryIfMissing True (parentDir file) liftIO $ removeFile file liftIO $ createSymbolicLink link file - return $ Just $ cleanup file + next $ cleanup file cleanup :: FilePath -> CommandCleanup cleanup file = do |