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

wip

This commit is contained in:
voidlizard 2025-08-14 13:38:55 +03:00
parent 59a54fabb8
commit c786027f4f
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/NCQ3.hs
View File

@ -892,7 +892,7 @@ testNCQ3Lookup1 syn TestEnv{..} = do
let (opts, argz) = splitOpts [("-m",1),("-M",0)] syn let (opts, argz) = splitOpts [("-m",1),("-M",0)] syn
let n = headDef 100000 [ fromIntegral x | LitIntVal x <- argz ] let n = headDef 100000 [ fromIntegral x | LitIntVal x <- argz ]
let nt = max 2 . headDef 1 $ [ fromIntegral x | LitIntVal x <- drop 1 argz ] let nt = headDef 1 $ [ fromIntegral x | LitIntVal x <- drop 1 argz ]
let nl = headDef 3 $ [ fromIntegral x | LitIntVal x <- drop 2 argz ] let nl = headDef 3 $ [ fromIntegral x | LitIntVal x <- drop 2 argz ]
let r = (64*1024, 256*1024) let r = (64*1024, 256*1024)