diff --git a/Annex/CatFile.hs b/Annex/CatFile.hs
index 8de0e536c9..254dafddb2 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