DecorrTerms

[wavpack.git] / examples / WvInfo.hs

diff --git a/examples/WvInfo.hs b/examples/WvInfo.hs
index 8b1f5b4dfdafbf659d46b34fc136e972ace9a5f5..5e0b86fbe62bdbd020e6dc76bbbbcf78752808a3 100644 (file)
--- a/examples/WvInfo.hs
+++ b/examples/WvInfo.hs
@@ -7,10 +7,12 @@ import Codec.Audio.WavPack.Block
 import qualified Data.ByteString.Lazy as L
 import qualified Data.Strict as S
 import System.Environment
+import System.IO
 
 main ∷ IO ()
 main = do [wvFile] ← getArgs
           wvStream ← L.readFile wvFile
+          hSetBuffering stdout NoBuffering
           showWvInfo wvStream
 
 showWvInfo ∷ L.ByteString → IO ()