X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=wavpack.git;a=blobdiff_plain;f=Codec%2FAudio%2FWavPack%2FEntropy.hs;fp=Codec%2FAudio%2FWavPack%2FEntropy.hs;h=444fc17957b5b5b7f42fc1b50e4a4203ecb15a49;hp=0000000000000000000000000000000000000000;hb=5f113a044d1a17a7313124802b58c91819bc54eb;hpb=c12220b6ce900bced2b48b1fbc3a098e06d94946

diff --git a/Codec/Audio/WavPack/Entropy.hs b/Codec/Audio/WavPack/Entropy.hs
new file mode 100644
index 0000000..444fc17
--- /dev/null
+++ b/Codec/Audio/WavPack/Entropy.hs
@@ -0,0 +1,21 @@
+{-# LANGUAGE
+    UnicodeSyntax
+  #-}
+-- | FIXME
+module Codec.Audio.WavPack.Entropy
+    ( EntropyData(..)
+    )
+    where
+import Data.Word
+
+-- | FIXME
+data EntropyData
+    = EntropyData {
+        -- | Median log2 values for a channel.
+        edMedian     ∷ !(Word32, Word32, Word32)
+        -- | FIXME
+      , edSlowLevel  ∷ !Word32
+        -- | FIXME
+      , edErrorLimit ∷ !Word32
+      }
+    deriving (Eq, Show)