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

wip

This commit is contained in:
Dmitry Zuikov 2024-09-16 19:39:41 +03:00
parent fdb16f96b7
commit 255f3a01d3
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
fixme-new/lib/Fixme/GK.hs
View File

@ -24,6 +24,7 @@ import Lens.Micro.Platform
data GroupKeyOpError = data GroupKeyOpError =
NoRefChanHead NoRefChanHead
| NoReadersSet | NoReadersSet
| GKLoadFailed
deriving (Eq,Ord,Show,Typeable) deriving (Eq,Ord,Show,Typeable)
instance Exception GroupKeyOpError instance Exception GroupKeyOpError
@ -53,7 +54,7 @@ loadGroupKey = do
flip fix 0 $ \next -> \case flip fix 0 $ \next -> \case
attempt | attempt > 2 -> mzero attempt | attempt > 2 -> throwIO GKLoadFailed
attempt -> do attempt -> do