From: PHO <pho@cielonegro.org>
Date: Tue, 4 Jan 2011 15:29:57 +0000 (+0900)
Subject: fix a bug in put :: BlockFlags -> Put
X-Git-Url: https://git.cielonegro.org/gitweb.cgi?a=commitdiff_plain;h=e5feea5a7fd246c6a2bd47ff86beecd48d7b9040;p=wavpack.git

fix a bug in put :: BlockFlags -> Put
---

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