a module for metadata sub-blocks

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

diff --git a/Codec/Audio/WavPack/Block.hs b/Codec/Audio/WavPack/Block.hs
index ac3ef802dd663c6f427e2b4cad6efbcf548533ed..fe3238163e3badbb9693f2eb5f9f6289f3dff280 100644 (file)
--- a/Codec/Audio/WavPack/Block.hs
+++ b/Codec/Audio/WavPack/Block.hs
@@ -1,7 +1,7 @@
 {-# LANGUAGE
     UnicodeSyntax
   #-}
--- | Data types for WavPack codec.
+-- | WavPack blocks
 module Codec.Audio.WavPack.Block
     ( BlockHeader(..)
     , BlockFlags(..)
@@ -141,7 +141,6 @@ instance Binary BlockFlags where
                       putNBits 5 $ bfLeftShift    bf
                       putBit $ bfFinalBlock    bf
                       putBit $ bfInitialBlock  bf
-                      putBit $ bfFinalBlock    bf
                       putBit $ bfHybridBalance bf
                       putBit $ bfHybridBitrate bf
                       putBit $ bfExtendedInt   bf