X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=wavpack.git;a=blobdiff_plain;f=Codec%2FAudio%2FWavPack%2FWords.hs;fp=Codec%2FAudio%2FWavPack%2FWords.hs;h=83c0897b1f4c25aa2ea5372f82b8ced574bcc9ed;hp=4bb1191a09bf95388ac7621e15c6034300a71b5c;hb=905f72f65d6a6b2b5f068f17a901f56f793209f7;hpb=0f10248deec85fcaf04b2f2c714b0655afecf00f

diff --git a/Codec/Audio/WavPack/Words.hs b/Codec/Audio/WavPack/Words.hs
index 4bb1191..83c0897 100644
--- 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