voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fixed

This commit is contained in:
Dmitry Zuikov 2024-03-25 12:03:13 +03:00
parent 027e949ac8
commit 2639e7d031
1 changed files with 4 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
hbs2-git/hbs2-git-oracle/lib/HBS2/Git/Oracle/Run.hs
View File

@ -124,18 +124,10 @@ runOracle = do
(rhh,RepoHeadSimple{..}) <- readRepoHeadFromTx sto tx
>>= toMPlus
debug $ "found head"
<+> pretty enc
<+> pretty n
<+> pretty gitLwwRef
<+> pretty gitRefLog
<+> pretty tx
<> line
<+> pretty name
<+> pretty brief
<+> pretty manifest
<> line
<> line
let enc = isJust _repoHeadGK0
let name = Text.take 256 $ _repoHeadName
let brief = Text.take 1024 $ _repoHeadBrief
let manifest = _repoManifest
let repoFactHash = hashObject @HbSync (serialise what) & HashRef