WvInfo.hs
[wavpack.git] / examples / WvInfo.hs
1 {-# LANGUAGE
2     UnicodeSyntax
3   #-}
4 module Main where
5 import Codec.Audio.WavPack.Block
6 import qualified Data.ByteString.Lazy as L
7 import System.Environment
8
9 main ∷ IO ()
10 main = do [wvFile] ← getArgs
11           wvStream ← L.readFile wvFile
12           showWvInfo wvStream
13
14 showWvInfo ∷ L.ByteString → IO ()
15 showWvInfo stream
16     = case findNextHeader stream of
17         (Just bh, _)
18             → print bh
19         _   → fail "Can't find any WavPack block headers."