X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=wavpack.git;a=blobdiff_plain;f=examples%2FWvInfo.hs;fp=examples%2FWvInfo.hs;h=4c5cf88cf6b6c895021382b9617459467faae16a;hp=78588ab29d3e3f6e5cdf12f09f3a9124eacc824f;hb=3468573980f7eabcd652bcff8c2f803ca4b944d6;hpb=f88b290bd0007530011da6741fdbaccfcc6577d9

diff --git a/examples/WvInfo.hs b/examples/WvInfo.hs
index 78588ab..4c5cf88 100644
--- a/examples/WvInfo.hs
+++ b/examples/WvInfo.hs
@@ -14,6 +14,7 @@ main = do [wvFile] ← getArgs
 showWvInfo ∷ L.ByteString → IO ()
 showWvInfo stream
     = case findNextHeader stream of
-        (Just bh, _)
+        Just (bh, _)
             → print bh
-        _   → fail "Can't find any WavPack block headers."
+        Nothing
+            → fail "Can't find any WavPack block headers."