diff --git a/fixme-new/lib/Fixme/GK.hs b/fixme-new/lib/Fixme/GK.hs index 56e12119..58baf1f9 100644 --- a/fixme-new/lib/Fixme/GK.hs +++ b/fixme-new/lib/Fixme/GK.hs @@ -24,6 +24,7 @@ import Lens.Micro.Platform data GroupKeyOpError = NoRefChanHead | NoReadersSet + | GKLoadFailed deriving (Eq,Ord,Show,Typeable) instance Exception GroupKeyOpError @@ -53,7 +54,7 @@ loadGroupKey = do flip fix 0 $ \next -> \case - attempt | attempt > 2 -> mzero + attempt | attempt > 2 -> throwIO GKLoadFailed attempt -> do