module Codec.Audio.WavPack.Entropy
( EntropyData(..)
- , clearMedian
+ , clearMedians
, getMedian0
, getMedian1
, edErrorLimit ∷ !(STRef s Word32)
}
-clearMedian ∷ EntropyData s → ST s ()
-clearMedian e
+clearMedians ∷ EntropyData s → ST s ()
+clearMedians e
= writeSTRef (edMedian0 e) 0 ≫
writeSTRef (edMedian1 e) 0 ≫
writeSTRef (edMedian2 e) 0