5 import Codec.Audio.WavPack.Block
6 import qualified Data.ByteString.Lazy as L
7 import System.Environment
10 main = do [wvFile] ← getArgs
11 wvStream ← L.readFile wvFile
14 showWvInfo ∷ L.ByteString → IO ()
16 = case findNextHeader stream of
20 → fail "Can't find any WavPack block headers."