still working on getWordsLossless

[wavpack.git] / Codec / Audio / WavPack / Entropy.hs

diff --git a/Codec/Audio/WavPack/Entropy.hs b/Codec/Audio/WavPack/Entropy.hs
index e7468017de69f6662b3932ce9b6ad7c1a36e566a..fc9b96d1709da9056a69172f8a4e8a56b887a146 100644 (file)
--- a/Codec/Audio/WavPack/Entropy.hs
+++ b/Codec/Audio/WavPack/Entropy.hs
@@ -5,7 +5,7 @@
 module Codec.Audio.WavPack.Entropy
     ( EntropyData(..)
 
-    , clearMedian
+    , clearMedians
 
     , getMedian0
     , getMedian1
@@ -39,8 +39,8 @@ data EntropyData s
       , 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