diff options
author | Joey Hess <joey@kitenet.net> | 2013-11-18 13:06:58 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2013-11-18 13:06:58 -0400 |
commit | 471aa27bf0a0e4c698303acb7fdf9cea6a75634b (patch) | |
tree | 8934b0b32c315922f00cb82d772df885301a2582 /Git/Objects.hs | |
download | git-repair-471aa27bf0a0e4c698303acb7fdf9cea6a75634b.tar.gz |
copied from git-annex
Diffstat (limited to 'Git/Objects.hs')
-rw-r--r-- | Git/Objects.hs | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/Git/Objects.hs b/Git/Objects.hs new file mode 100644 index 0000000..b1c5805 --- /dev/null +++ b/Git/Objects.hs @@ -0,0 +1,29 @@ +{- .git/objects + - + - Copyright 2013 Joey Hess <joey@kitenet.net> + - + - Licensed under the GNU GPL version 3 or higher. + -} + +module Git.Objects where + +import Common +import Git + +objectsDir :: Repo -> FilePath +objectsDir r = localGitDir r </> "objects" + +packDir :: Repo -> FilePath +packDir r = objectsDir r </> "pack" + +listPackFiles :: Repo -> IO [FilePath] +listPackFiles r = filter (".pack" `isSuffixOf`) + <$> catchDefaultIO [] (dirContents $ packDir r) + +packIdxFile :: FilePath -> FilePath +packIdxFile = flip replaceExtension "idx" + +looseObjectFile :: Repo -> Sha -> FilePath +looseObjectFile r sha = objectsDir r </> prefix </> rest + where + (prefix, rest) = splitAt 2 (show sha) |