diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-09-14 16:01:40 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-09-14 16:01:40 -0400 |
| commit | 59fe0b29a6f15a61276702e1594b9476e1363fd9 (patch) | |
| tree | ac688f24e80e8958730abc9acd7dde63a027b0c6 /Command/Fsck.hs | |
| parent | 11994ebb3dc50a74dea9601907493950ac3540a4 (diff) | |
simplify
Diffstat (limited to 'Command/Fsck.hs')
| -rw-r--r-- | Command/Fsck.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/Command/Fsck.hs b/Command/Fsck.hs index cdc68581e..08bf2b97f 100644 --- a/Command/Fsck.hs +++ b/Command/Fsck.hs @@ -39,9 +39,7 @@ seek = [withNumCopies start] start :: CommandStartAttrFile start (file, attr) = notBareRepo $ isAnnexed file $ \(key, backend) -> do showStart "fsck" file - next $ perform key file backend numcopies - where - numcopies = readMaybe attr :: Maybe Int + next $ perform key file backend $ readMaybe attr perform :: Key -> FilePath -> Backend Annex -> Maybe Int -> CommandPerform perform key file backend numcopies = do |