projects
/
wavpack.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
2860b0f
)
I'm getting tired of this stupid project...
author
PHO
<pho@cielonegro.org>
Fri, 15 Jul 2011 18:32:27 +0000
(
03:32
+0900)
committer
PHO
<pho@cielonegro.org>
Fri, 15 Jul 2011 18:32:27 +0000
(
03:32
+0900)
Codec/Audio/WavPack/Words.hs
patch
|
blob
|
history
diff --git
a/Codec/Audio/WavPack/Words.hs
b/Codec/Audio/WavPack/Words.hs
index 92282ccc420518db3464368323de4a573e4baec8..1321c0725808b340aea6e490ebd1817c627cc021 100644
(file)
--- a/
Codec/Audio/WavPack/Words.hs
+++ b/
Codec/Audio/WavPack/Words.hs
@@
-155,7
+155,13
@@
getWordsLossless isMono w0 bs0 nSamples0
in
go2 0 w' bs n v
| otherwise
- = error "FIXME"
+ = let next8 ∷ Word8
+ next8 = B.toBits (B.take (8 ∷ Int) bs)
+ in
+ if next8 ≡ 0xFF then
+ error "FIXME"
+ else
+ error "FIXME"
go2 ∷ Word32 → WordsData → bs → Int → New v Int32
→ (# WordsData, bs, Int, New v Int32 #)