From c592d4b622842d62e80550dcc85a75e43d949373 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 20 Nov 2013 18:22:15 -0400 Subject: more fixes --- Git/Objects.hs | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) (limited to 'Git/Objects.hs') diff --git a/Git/Objects.hs b/Git/Objects.hs index b1c5805..d9d2c67 100644 --- a/Git/Objects.hs +++ b/Git/Objects.hs @@ -9,6 +9,7 @@ module Git.Objects where import Common import Git +import Git.Sha objectsDir :: Repo -> FilePath objectsDir r = localGitDir r "objects" @@ -16,12 +17,17 @@ objectsDir r = localGitDir r "objects" packDir :: Repo -> FilePath packDir r = objectsDir r "pack" +packIdxFile :: FilePath -> FilePath +packIdxFile = flip replaceExtension "idx" + listPackFiles :: Repo -> IO [FilePath] listPackFiles r = filter (".pack" `isSuffixOf`) <$> catchDefaultIO [] (dirContents $ packDir r) -packIdxFile :: FilePath -> FilePath -packIdxFile = flip replaceExtension "idx" +listLooseObjectShas :: Repo -> IO [Sha] +listLooseObjectShas r = catchDefaultIO [] $ + mapMaybe (extractSha . concat . reverse . take 2 . reverse . splitDirectories) + <$> dirContentsRecursiveSkipping (== "pack") (objectsDir r) looseObjectFile :: Repo -> Sha -> FilePath looseObjectFile r sha = objectsDir r prefix rest -- cgit v1.2.3