{-# 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
        Nothing
            → fail "Can't find any WavPack block headers."