some data types

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

diff --git a/Codec/Audio/WavPack/Entropy.hs b/Codec/Audio/WavPack/Entropy.hs
new file mode 100644 (file)
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)