{-# LANGUAGE UnicodeSyntax #-} module Main where import Codec.Audio.WavPack.Block import qualified Data.ByteString.Lazy as L import System.Environment main ∷ IO () main = do [wvFile] ← getArgs wvStream ← L.readFile wvFile showWvInfo wvStream showWvInfo ∷ L.ByteString → IO () showWvInfo stream = case findNextHeader stream of (Just bh, _) → print bh _ → fail "Can't find any WavPack block headers."