From: Joey Hess <joeyh@joeyh.name>
Date: Tue, 13 Aug 2024 19:05:49 +0000 (-0400)
Subject: improve haddocks
X-Git-Tag: archive/raspbian/10.20250416-2+rpi1~1^2~21^2~128
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=343c87db455646e7e67d99a39d610627e3fc8aed;p=git-annex.git

improve haddocks
---

diff --git a/Git/CatFile.hs b/Git/CatFile.hs
index daa41ad083..89df87404d 100644
--- a/Git/CatFile.hs
+++ b/Git/CatFile.hs
@@ -330,9 +330,12 @@ catObjectStream
 	:: (MonadMask m, MonadIO m)
 	=> Repo
 	-> (
-	    ((v, Ref) -> IO ()) -- ^ call to feed values in
-	    -> IO () -- call once all values are fed in
-	    -> IO (Maybe (v, Maybe L.ByteString)) -- call to read results
+	    ((v, Ref) -> IO ())
+	    -- ^ call to feed values in
+	    -> IO ()
+	    -- ^ call once all values are fed in
+	    -> IO (Maybe (v, Maybe L.ByteString))
+	    -- ^ call to read results
 	    -> m a
 	   )
 	-> m a
@@ -350,9 +353,12 @@ catObjectMetaDataStream
 	:: (MonadMask m, MonadIO m)
 	=> Repo
 	-> (
-	    ((v, Ref) -> IO ()) -- ^ call to feed values in
-	    -> IO () -- call once all values are fed in
-	    -> IO (Maybe (v, Maybe (Sha, FileSize, ObjectType))) -- call to read results
+	    ((v, Ref) -> IO ())
+	    -- ^ call to feed values in
+	    -> IO ()
+	    -- ^ call once all values are fed in
+	    -> IO (Maybe (v, Maybe (Sha, FileSize, ObjectType)))
+	    -- ^ call to read results
 	    -> m a
 	   )
 	-> m a