still working on getWordsLossless...
authorPHO <pho@cielonegro.org>
Fri, 15 Jul 2011 09:56:57 +0000 (18:56 +0900)
committerPHO <pho@cielonegro.org>
Fri, 15 Jul 2011 09:56:57 +0000 (18:56 +0900)
Codec/Audio/WavPack/Words.hs

index fb08b5e68875d280f93dfca55ef2b08e1be2576d..08887186f39ee2ea841327e4b7296bcbba3f7726 100644 (file)
@@ -73,9 +73,11 @@ getWordsLossless isMono w0 bs0 nSamples0
           | otherwise
               = error "FIXME"
           where
-            c ∷ EntropyData
-            c | n `rem` 2 ≡ 0 = fst $ wdEntropyData w
-              | otherwise     = snd $ wdEntropyData w
+            entropy ∷ EntropyData
+            entropy
+                | isMono        = fst $ wdEntropyData w
+                | n `rem` 2 ≡ 0 = fst $ wdEntropyData w
+                | otherwise     = snd $ wdEntropyData w
 
 -- | Read a single unsigned value from the specified bitstream with a
 -- value from 0 to maxCode. If there are exactly a power of two number