6 import Codec.Audio.WavPack.Block
7 import qualified Data.ByteString.Lazy as L
8 import qualified Data.Strict as S
9 import System.Environment
13 main = do [wvFile] ← getArgs
14 wvStream ← L.readFile wvFile
15 hSetBuffering stdout NoBuffering
18 showWvInfo ∷ L.ByteString → IO ()
20 = case findNextBlock stream of
24 → fail "Can't find any WavPack block headers."