From 2639e7d031754bb861779cead5a584feccd4c7ba Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Mon, 25 Mar 2024 12:03:13 +0300
Subject: [PATCH] fixed

---
 .../hbs2-git-oracle/lib/HBS2/Git/Oracle/Run.hs   | 16 ++++------------
 1 file changed, 4 insertions(+), 12 deletions(-)

diff --git a/hbs2-git/hbs2-git-oracle/lib/HBS2/Git/Oracle/Run.hs b/hbs2-git/hbs2-git-oracle/lib/HBS2/Git/Oracle/Run.hs
index ba19b913..9586146f 100644
--- a/hbs2-git/hbs2-git-oracle/lib/HBS2/Git/Oracle/Run.hs
+++ b/hbs2-git/hbs2-git-oracle/lib/HBS2/Git/Oracle/Run.hs
@@ -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