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

wip15

This commit is contained in:
voidlizard 2024-12-04 13:17:59 +03:00
parent ba4990a039
commit 93d8848a72
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -599,7 +599,7 @@ export mref' r = connectedDo $ flip runContT pure do
ContT $ withAsync $ replicateM_ 2 $ forever do ContT $ withAsync $ replicateM_ 2 $ forever do
join $ atomically (readTQueue deferred) join $ atomically (readTQueue deferred)
lift $ flip fix ExportGetCommit $ \next -> \case lift $ flip fix ExportStart $ \next -> \case
ExportStart -> do ExportStart -> do
here <- withState $ selectCBlock r <&> isJust here <- withState $ selectCBlock r <&> isJust