diff --git a/Codec/RPM/Conduit.hs b/Codec/RPM/Conduit.hs index 063725c..a6ab812 100644 --- a/Codec/RPM/Conduit.hs +++ b/Codec/RPM/Conduit.hs @@ -52,7 +52,7 @@ payloadC = awaitForever (yield . rpmArchive) -- | Extract the package payload from an 'RPM', decompress it, and return each element of -- the payload as a 'Data.CPIO.Entry'. -payloadContentsC :: (MonadResource m, MonadThrow m) => Conduit RPM m Entry +payloadContentsC :: (MonadResource m, MonadThrow m) => Conduit RPM m C.ByteString payloadContentsC = payloadC .| decompress Nothing .| readCPIO