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

wip11

This commit is contained in:
voidlizard 2024-12-03 12:45:47 +03:00
parent 02a9c24302
commit bd3395f775
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hbs2-git3/app/Main.hs
View File

@ -841,8 +841,8 @@ theDict = do
notice $ pretty r notice $ pretty r
entry $ bindMatch "test:git:sblock:list" $ nil_ $ \syn -> lift do entry $ bindMatch "test:git:cblock:list" $ nil_ $ \syn -> lift do
hash <- headMay [ x | HashLike x <- syn ] & orThrowUser "sblock hash not given" hash <- headMay [ x | HashLike x <- syn ] & orThrowUser "cblock hash not given"
sto <- getStorage sto <- getStorage
liftIO do liftIO do