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

fixed fixme-new wtf with lazy io

This commit is contained in:
voidlizard 2024-10-10 11:59:26 +03:00
parent cb70ac7c66
commit 109971d74c
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
fixme-new/lib/Fixme/Run/Internal.hs
View File

@ -365,22 +365,23 @@ Issue text...
flip runContT pure $ callCC \exit -> do flip runContT pure $ callCC \exit -> do
fname <- liftIO $ Temp.writeTempFile "." "fixme-issue" txt fname <- liftIO $ Temp.writeTempFile "." "fixme-issue" txt
h1 <- liftIO $ try @_ @SomeException (LBS.readFile fname) ContT $ bracket none (const $ rm fname)
<&> fromRight mempty
h1 <- liftIO (BS.readFile fname)
<&> hashObject @HbSync <&> hashObject @HbSync
ContT $ bracket none (const $ rm fname) debug $ "hash1" <+> pretty h1
void $ runProcess $ shell [qc|{editor} {fname}|] void $ runProcess $ shell [qc|{editor} {fname}|]
s <- liftIO $ LBS.readFile fname s <- liftIO $ BS.readFile fname <&> LBS.fromStrict
h2 <- liftIO $ try @_ @SomeException (LBS.readFile fname) let h2 = hashObject @HbSync s
<&> fromRight mempty
<&> hashObject @HbSync
fxs <- lift $ scanBlobOpts NoIndents Nothing s fxs <- lift $ scanBlobOpts NoIndents Nothing s
debug $ "hash before/after" <+> pretty h1 <+> pretty h2
when (h1 == h2) $ exit () when (h1 == h2) $ exit ()
lift $ withState $ transactional do lift $ withState $ transactional do