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

ncq:test:ncq:fuckup-recovery1

This commit is contained in:
voidlizard 2025-05-17 15:27:19 +03:00
parent ff65d8e15d
commit 63f4e69bbb
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-tests/test/TestNCQ.hs
View File

@ -112,7 +112,7 @@ testNCQFuckupRecovery1 prefix = flip runContT pure do
let ncqDir = tmp </> "ncq-test-data" let ncqDir = tmp </> "ncq-test-data"
ContT $ bracket none $ const do ContT $ bracket none $ const do
none rm tmp
(cur,ha,h0) <- lift $ withNCQ id ncqDir $ \ncq -> do (cur,ha,h0) <- lift $ withNCQ id ncqDir $ \ncq -> do
let sto = AnyStorage ncq let sto = AnyStorage ncq