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
12 main = do [wvFile] ← getArgs
13 wvStream ← L.readFile wvFile
16 showWvInfo ∷ L.ByteString → IO ()
18 = case findNextBlock stream of
22 → fail "Can't find any WavPack block headers."