git-phoenix
Safe HaskellNone
LanguageGHC2024

Data.Git.Phoenix.Uber

Description

Collect links to GIT objects under 1 directory

Documentation

type ShaDedupMap = Map ComHash Int Source #

data GitObject Source #

Constructors

GitObject 

Fields

Instances

Instances details
NFData GitObject Source # 
Instance details

Defined in Data.Git.Phoenix.Uber

Methods

rnf :: GitObject -> () #

Generic GitObject Source # 
Instance details

Defined in Data.Git.Phoenix.Uber

Associated Types

type Rep GitObject 
Instance details

Defined in Data.Git.Phoenix.Uber

type Rep GitObject = D1 ('MetaData "GitObject" "Data.Git.Phoenix.Uber" "git-phoenix-0.0.1-inplace" 'False) (C1 ('MetaCons "GitObject" 'PrefixI 'True) (S1 ('MetaSel ('Just "gobHash") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 ComHash) :*: S1 ('MetaSel ('Just "gobOrigin") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 FilePath)))

Methods

from :: GitObject -> Rep GitObject x #

to :: Rep GitObject x -> GitObject #

Show GitObject Source # 
Instance details

Defined in Data.Git.Phoenix.Uber

Methods

showsPrec :: Int -> GitObject -> ShowS #

show :: GitObject -> String #

showList :: [GitObject] -> ShowS #

Eq GitObject Source # 
Instance details

Defined in Data.Git.Phoenix.Uber

Methods

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

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

type Rep GitObject Source # 
Instance details

Defined in Data.Git.Phoenix.Uber

type Rep GitObject = D1 ('MetaData "GitObject" "Data.Git.Phoenix.Uber" "git-phoenix-0.0.1-inplace" 'False) (C1 ('MetaCons "GitObject" 'PrefixI 'True) (S1 ('MetaSel ('Just "gobHash") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 ComHash) :*: S1 ('MetaSel ('Just "gobOrigin") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 FilePath)))

gitObjectFilePath :: GitObject -> FilePath Source #

mkGitObject :: PhoenixM m => FilePath -> m (Maybe GitObject) Source #

findGitObjects :: forall (m :: Type -> Type) i. PhoenixCoCon m => FilePath -> ConduitT i GitObject m () Source #

alrr :: Monad m => (x -> m y) -> (x, z) -> m z Source #

replaceSymLinkWithDisambiguate :: MonadUnliftIO m => FilePath -> GitObject -> m () Source #

appendPathToUberGob :: MonadUnliftIO m => FilePath -> GitObject -> m () Source #

storeGitObject :: PhoenixUberM m => (ShaDedupMap, Int, Int) -> GitObject -> m (ShaDedupMap, Int, Int) Source #

recoverFrom :: PhoenixUberM m => Tagged InDir FilePath -> m () Source #