X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=wavpack.git;a=blobdiff_plain;f=Codec%2FAudio%2FWavPack%2FBlock.hs;h=fe3238163e3badbb9693f2eb5f9f6289f3dff280;hp=ac3ef802dd663c6f427e2b4cad6efbcf548533ed;hb=44ad26d5207bc8b48892030345df73e208479db4;hpb=3468573980f7eabcd652bcff8c2f803ca4b944d6

diff --git a/Codec/Audio/WavPack/Block.hs b/Codec/Audio/WavPack/Block.hs
index ac3ef80..fe32381 100644
--- 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