From bd3395f775c8ae2bd91e9cd7983ab42348221fe7 Mon Sep 17 00:00:00 2001 From: voidlizard Date: Tue, 3 Dec 2024 12:45:47 +0300 Subject: [PATCH] wip11 --- hbs2-git3/app/Main.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/hbs2-git3/app/Main.hs b/hbs2-git3/app/Main.hs index c366ba69..085a7ccd 100644 --- a/hbs2-git3/app/Main.hs +++ b/hbs2-git3/app/Main.hs @@ -841,8 +841,8 @@ theDict = do notice $ pretty r - entry $ bindMatch "test:git:sblock:list" $ nil_ $ \syn -> lift do - hash <- headMay [ x | HashLike x <- syn ] & orThrowUser "sblock hash not given" + entry $ bindMatch "test:git:cblock:list" $ nil_ $ \syn -> lift do + hash <- headMay [ x | HashLike x <- syn ] & orThrowUser "cblock hash not given" sto <- getStorage liftIO do