X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=wavpack.git;a=blobdiff_plain;f=Codec%2FAudio%2FWavPack%2FEntropy.hs;h=fc9b96d1709da9056a69172f8a4e8a56b887a146;hp=e7468017de69f6662b3932ce9b6ad7c1a36e566a;hb=fdf0906148007ee7b0cfe2b0665b4601143b169e;hpb=281f6781b81e7b77876d4e218e347a914e3ac2a0

diff --git a/Codec/Audio/WavPack/Entropy.hs b/Codec/Audio/WavPack/Entropy.hs
index e746801..fc9b96d 100644
--- 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