diff options
Diffstat (limited to 'Command/Fix.hs')
-rw-r--r-- | Command/Fix.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Command/Fix.hs b/Command/Fix.hs index 5b8630654..4e8471bcb 100644 --- a/Command/Fix.hs +++ b/Command/Fix.hs @@ -82,8 +82,7 @@ makeHardLink :: FilePath -> Key -> CommandPerform makeHardLink file key = do replaceFile file $ \tmp -> do mode <- liftIO $ catchMaybeIO $ fileMode <$> getFileStatus file - r <- linkFromAnnex key tmp mode - case r of + linkFromAnnex key tmp mode >>= \case LinkAnnexFailed -> error "unable to make hard link" _ -> noop next $ return True |