slightly changed the type of findNextHeader

[wavpack.git] / examples / WvInfo.hs

diff --git a/examples/WvInfo.hs b/examples/WvInfo.hs
index 78588ab29d3e3f6e5cdf12f09f3a9124eacc824f..4c5cf88cf6b6c895021382b9617459467faae16a 100644 (file)
--- 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."