in
go2 0 w' bs n v
| otherwise
- = error "FIXME"
+ = let next8 ∷ Word8
+ next8 = B.toBits (B.take (8 ∷ Int) bs)
+ in
+ if next8 ≡ 0xFF then
+ error "FIXME"
+ else
+ error "FIXME"
go2 ∷ Word32 → WordsData → bs → Int → New v Int32
→ (# WordsData, bs, Int, New v Int32 #)
go2 0 w bs n v
= let ent = getEntropy n w
low = 0
- high = getMedian0 ent
+ high = getMedian0 ent - 1
ent' = decMedian0 ent
w' = setEntropy ent' n w
in