diff options
author | Joey Hess <joey@kitenet.net> | 2013-11-30 14:15:39 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2013-11-30 14:15:39 -0400 |
commit | fb9fa44ea545c4ede11c778153f1a3d4bbd573b5 (patch) | |
tree | ff89b9559ef229d65753a20b8f129ef2c2e8da09 /Git/Fsck.hs | |
parent | a0cc01f89964f6670ff60e5ddf0a08d72d1094b7 (diff) | |
download | git-repair-fb9fa44ea545c4ede11c778153f1a3d4bbd573b5.tar.gz |
better data type
Diffstat (limited to 'Git/Fsck.hs')
-rw-r--r-- | Git/Fsck.hs | 19 |
1 files changed, 11 insertions, 8 deletions
diff --git a/Git/Fsck.hs b/Git/Fsck.hs index 8bfddb4..8555aa0 100644 --- a/Git/Fsck.hs +++ b/Git/Fsck.hs @@ -6,11 +6,12 @@ -} module Git.Fsck ( - FsckResults, + FsckResults(..), MissingObjects, findBroken, foundBroken, findMissing, + knownMissing, ) where import Common @@ -23,9 +24,7 @@ import qualified Data.Set as S type MissingObjects = S.Set Sha -{- If fsck succeeded, Just a set of missing objects it found. - - If it failed, Nothing. -} -type FsckResults = Maybe MissingObjects +data FsckResults = FsckFoundMissing MissingObjects | FsckFailed {- Runs fsck to find some of the broken objects in the repository. - May not find all broken objects, if fsck fails on bad data in some of @@ -42,8 +41,8 @@ findBroken batchmode r = do let objs = findShas output badobjs <- findMissing objs r if S.null badobjs && not fsckok - then return Nothing - else return $ Just badobjs + then return FsckFailed + else return $ FsckFoundMissing badobjs where (command, params) = ("git", fsckParams r) (command', params') @@ -51,8 +50,12 @@ findBroken batchmode r = do | otherwise = (command, params) foundBroken :: FsckResults -> Bool -foundBroken Nothing = True -foundBroken (Just s) = not (S.null s) +foundBroken FsckFailed = True +foundBroken (FsckFoundMissing s) = not (S.null s) + +knownMissing :: FsckResults -> MissingObjects +knownMissing FsckFailed = S.empty +knownMissing (FsckFoundMissing s) = s {- Finds objects that are missing from the git repsitory, or are corrupt. - |