From 0ebfe367b0cf15798a1e4153f2afa8c3475d6c32 Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Fri, 13 Jan 2023 09:59:39 +0300
Subject: [PATCH] read objects by ref

---
 hbs2/Main.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/hbs2/Main.hs b/hbs2/Main.hs
index 2caefacc..22460c2d 100644
--- a/hbs2/Main.hs
+++ b/hbs2/Main.hs
@@ -90,9 +90,9 @@ runCat opts ss = do
 
     mhash <- MaybeT $ pure $ uniLastMay @MerkleHash opts <&> fromMerkleHash
 
-    some <- MaybeT $ getBlock ss mhash
+    obj <- MaybeT $ getBlock ss mhash
 
-    let mbLink = deserialiseOrFail @AnnotatedHashRef some
+    let mbLink = deserialiseOrFail @AnnotatedHashRef obj
 
     realHash <- MaybeT $ case mbLink of
       Left _    -> pure $ Just mhash