working on unpackSamples

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

diff --git a/Codec/Audio/WavPack/Words.hs b/Codec/Audio/WavPack/Words.hs
index 4bb1191a09bf95388ac7621e15c6034300a71b5c..83c0897b1f4c25aa2ea5372f82b8ced574bcc9ed 100644 (file)
--- a/Codec/Audio/WavPack/Words.hs
+++ b/Codec/Audio/WavPack/Words.hs
@@ -92,7 +92,7 @@ getWordsLossless ∷ ∀bs v s. (Bitstream bs, MV.MVector v Int32)
                  ⇒ Bool       -- ^ Is the stream monaural?
                  → WordsData s
                  → STRef s bs -- ^ WV bitstream
-                 → Int        -- ^ Number of samples to get
+                 → Word32     -- ^ Number of samples to get
                  → ST s (v s Int32)
 {-# INLINEABLE getWordsLossless #-}
 getWordsLossless isMono w bs nSamples0
@@ -101,7 +101,8 @@ getWordsLossless isMono w bs nSamples0
          return $ MV.take n v
     where
       nSamples ∷ Int
-      nSamples = if isMono
+      nSamples = fromIntegral $
+                 if isMono
                  then nSamples0
                  else nSamples0 ⋅ 2