gitlib-2.0.1.0: Git/Blob.hs

module Git.Blob where

import           Control.Applicative
import           Control.Monad
import           Control.Monad.Trans.Class
import           Data.ByteString as B
import           Data.Conduit
import qualified Data.Conduit.List as CList
import           Data.HashSet (HashSet)
import qualified Data.HashSet as HashSet
import           Data.Tagged
import           Data.Text as T
import           Data.Text.Encoding as T
import           Git.Types
import           Prelude hiding (FilePath)

createBlobUtf8 :: Repository m => Text -> m (BlobOid m)
createBlobUtf8 = createBlob . BlobString . T.encodeUtf8

catBlob :: Repository m => BlobOid m -> m ByteString
catBlob = lookupBlob >=> blobToByteString

catBlobUtf8 :: Repository m => BlobOid m -> m Text
catBlobUtf8 = catBlob >=> return . T.decodeUtf8

blobContentsToByteString :: Repository m => BlobContents m -> m ByteString
blobContentsToByteString (BlobString bs) = return bs
blobContentsToByteString (BlobStream bs) =
    B.concat <$> (bs $$ CList.consume)
blobContentsToByteString (BlobSizedStream bs _) =
    B.concat <$> (bs $$ CList.consume)

blobToByteString :: Repository m => Blob m -> m ByteString
blobToByteString (Blob _ contents) = blobContentsToByteString contents

treeBlobEntries :: Repository m => Tree m -> m [(Text, BlobOid m, BlobKind)]
treeBlobEntries tree = do
    entries <- listTreeEntries tree
    return $ Prelude.foldr f [] entries
  where
    f (fp ,BlobEntry oid k) xs = (fp, oid, k):xs
    f _ xs = xs

copyBlob :: (Repository m, Repository (t m), MonadTrans t)
         => BlobOid m
         -> HashSet Text
         -> t m (BlobOid (t m), HashSet Text)
copyBlob blobr needed = do
    let oid = untag blobr
        sha = renderOid oid
    oid2 <- parseOid (renderOid oid)
    if HashSet.member sha needed
        then do
        bs <- lift $ blobToByteString =<< lookupBlob (Tagged oid)
        boid <- createBlob (BlobString bs)

        let x = HashSet.delete sha needed
        return $ boid `seq` x `seq` (boid, x)

        else return (Tagged oid2, needed)