Codec/Audio/WavPack/Entropy.hs

   1 {-# LANGUAGE
   2     UnicodeSyntax
   3   #-}
   4 -- | FIXME
   5 module Codec.Audio.WavPack.Entropy
   6     ( EntropyData(..)
   7     )
   8     where
   9 import Data.Word
  10
  11 -- | FIXME
  12 data EntropyData
  13     = EntropyData {
  14         -- | Median log2 values for a channel.
  15         edMedian     ∷ !(Word32, Word32, Word32)
  16         -- | FIXME
  17       , edSlowLevel  ∷ !Word32
  18         -- | FIXME
  19       , edErrorLimit ∷ !Word32
  20       }
  21     deriving (Eq, Show)