From a650aa8b43bf21388c2b5e8ebd922a52801eebd4 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Thu, 25 Feb 2016 15:34:46 -0400
Subject: add catCommit

---
 Annex/CatFile.hs | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/Annex/CatFile.hs b/Annex/CatFile.hs
index 8de0e536c..254dafddb 100644
--- a/Annex/CatFile.hs
+++ b/Annex/CatFile.hs
@@ -10,6 +10,7 @@ module Annex.CatFile (
 	catFileDetails,
 	catObject,
 	catTree,
+	catCommit,
 	catObjectDetails,
 	catFileHandle,
 	catFileStop,
@@ -52,6 +53,11 @@ catTree ref = do
 	h <- catFileHandle
 	liftIO $ Git.CatFile.catTree h ref
 
+catCommit :: Git.Ref -> Annex (Maybe Commit)
+catCommit ref = do
+	h <- catFileHandle
+	liftIO $ Git.CatFile.catCommit h ref
+
 catObjectDetails :: Git.Ref -> Annex (Maybe (L.ByteString, Sha, ObjectType))
 catObjectDetails ref = do
 	h <- catFileHandle
-- 
cgit v1.2.3