git-phoenix

Safe Haskell	None
Language	GHC2024

Data.Git.Phoenix.Tree

Documentation

dropTreeHeader :: forall {k} (s :: k). Bs s -> Bs s Source #

data DOF Source #

Constructors

Dir
File

Instances

Instances details

NFData DOF Source #

Instance details

Defined in Data.Git.Phoenix.Tree

Methods

rnf :: DOF -> () #

Generic DOF Source #

Instance details

Defined in Data.Git.Phoenix.Tree

Associated Types

type Rep DOF
Instance details Defined in Data.Git.Phoenix.Tree type Rep DOF = D1 ('MetaData "DOF" "Data.Git.Phoenix.Tree" "git-phoenix-0.0.2-inplace" 'False) (C1 ('MetaCons "Dir" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "File" 'PrefixI 'False) (U1 :: Type -> Type))

Methods

from :: DOF -> Rep DOF x #

to :: Rep DOF x -> DOF #

Show DOF Source #

Instance details

Defined in Data.Git.Phoenix.Tree

Methods

showsPrec :: Int -> DOF -> ShowS #

show :: DOF -> String #

showList :: [DOF] -> ShowS #

Eq DOF Source #

Instance details

Defined in Data.Git.Phoenix.Tree

Methods

(==) :: DOF -> DOF -> Bool #

(/=) :: DOF -> DOF -> Bool #

type Rep DOF Source #

Instance details

Defined in Data.Git.Phoenix.Tree

type Rep DOF = D1 ('MetaData "DOF" "Data.Git.Phoenix.Tree" "git-phoenix-0.0.2-inplace" 'False) (C1 ('MetaCons "Dir" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "File" 'PrefixI 'False) (U1 :: Type -> Type))

dofToGitObjType :: DOF -> GitObjType Source #

readTreeShas :: LByteString -> [(DOF, LByteString)] Source #

data NonRecursive Source #

Constructors

JustBlob !()
TreeShas ![(DOF, LByteString)]
Collision !(Tagged Compressed LByteString)

Instances

Instances details

NFData NonRecursive Source #

Instance details

Defined in Data.Git.Phoenix.Tree

Methods

rnf :: NonRecursive -> () #

Generic NonRecursive Source #

Instance details

Defined in Data.Git.Phoenix.Tree

Associated Types

type Rep NonRecursive

Instance details

Defined in Data.Git.Phoenix.Tree

type Rep NonRecursive = D1 ('MetaData "NonRecursive" "Data.Git.Phoenix.Tree" "git-phoenix-0.0.2-inplace" 'False) (C1 ('MetaCons "JustBlob" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 ())) :+: (C1 ('MetaCons "TreeShas" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 [(DOF, LByteString)])) :+: C1 ('MetaCons "Collision" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Tagged Compressed LByteString)))))

Methods

from :: NonRecursive -> Rep NonRecursive x #

to :: Rep NonRecursive x -> NonRecursive #

Show NonRecursive Source #

Instance details

Defined in Data.Git.Phoenix.Tree

Methods

showsPrec :: Int -> NonRecursive -> ShowS #

show :: NonRecursive -> String #

showList :: [NonRecursive] -> ShowS #

Eq NonRecursive Source #

Instance details

Defined in Data.Git.Phoenix.Tree

Methods

(==) :: NonRecursive -> NonRecursive -> Bool #

(/=) :: NonRecursive -> NonRecursive -> Bool #

type Rep NonRecursive Source #

Instance details

Defined in Data.Git.Phoenix.Tree

type Rep NonRecursive = D1 ('MetaData "NonRecursive" "Data.Git.Phoenix.Tree" "git-phoenix-0.0.2-inplace" 'False) (C1 ('MetaCons "JustBlob" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 ())) :+: (C1 ('MetaCons "TreeShas" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 [(DOF, LByteString)])) :+: C1 ('MetaCons "Collision" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Tagged Compressed LByteString)))))

parseTreeObject :: forall {k} (m :: Type -> Type) (s :: k). PhoenixExtractM m => FilePath -> Tagged Compressed (Bs s) -> Bs s -> LazyT s m (Either (Tagged Compressed LByteString) [(DOF, LByteString)]) Source #

onRight_ :: Monad m => (b -> m ()) -> Either a b -> m (Either a b) Source #

getDestDir :: MonadReader PhoenixExtractConf m => m FilePath Source #

extractTree :: PhoenixExtractM m => GitPath 'Tree -> m () Source #