Fix missed error handling of deserializeOrFail

2023-05-15 16:22:13 +04:00 · 2023-05-15 16:22:13 +04:00 · 9afeb4d1fa
parent ea9e720273
commit 9afeb4d1fa
1 changed files with 2 additions and 1 deletions
--- a/hbs2/Main.hs
+++ b/hbs2/Main.hs
@ -226,7 +226,8 @@ runCat opts ss = do
          walk (fromHashRef h)

        AnnRef h -> do
-          let lnk = _ $ deserialiseOrFail @AnnotatedHashRef obj
+          let lnk = either (error . ("Deserialise AnnotatedHashRef: " <>) . show) id $
+                  deserialiseOrFail @AnnotatedHashRef obj
          let mbHead =  headMay [ h
                                | HashRefMerkle (HashRefObject (HashRef h) _) <- universeBi lnk
                                ]