improve haddocks

diff --git a/Git/CatFile.hs b/Git/CatFile.hs
index daa41ad083efc4b3a2137db02170f99145b80760..89df87404d02b32dfb2966fc33d84b9feb61a33c 100644 (file)
--- 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