From 93d8848a729a03452e5d66b0163b9b889166732d Mon Sep 17 00:00:00 2001 From: voidlizard Date: Wed, 4 Dec 2024 13:17:59 +0300 Subject: [PATCH] wip15 --- hbs2-git3/app/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hbs2-git3/app/Main.hs b/hbs2-git3/app/Main.hs index 32bf6dbf..84579e88 100644 --- a/hbs2-git3/app/Main.hs +++ b/hbs2-git3/app/Main.hs @@ -599,7 +599,7 @@ export mref' r = connectedDo $ flip runContT pure do ContT $ withAsync $ replicateM_ 2 $ forever do join $ atomically (readTQueue deferred) - lift $ flip fix ExportGetCommit $ \next -> \case + lift $ flip fix ExportStart $ \next -> \case ExportStart -> do here <- withState $ selectCBlock r <&> isJust