fix a bug in put :: BlockFlags -> Put
authorPHO <pho@cielonegro.org>
Tue, 4 Jan 2011 15:29:57 +0000 (00:29 +0900)
committerPHO <pho@cielonegro.org>
Tue, 4 Jan 2011 15:29:57 +0000 (00:29 +0900)
Codec/Audio/WavPack/Block.hs

index ac3ef802dd663c6f427e2b4cad6efbcf548533ed..db527064654a261705ac8a2e458323ecdf138943 100644 (file)
@@ -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