+{-# 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)