X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=examples%2FWvInfo.hs;h=5e0b86fbe62bdbd020e6dc76bbbbcf78752808a3;hb=5bf7c1be1cfce7ef8764ca3fbc34e8ef9bcf5037;hp=8b1f5b4dfdafbf659d46b34fc136e972ace9a5f5;hpb=9128d47e1f753b82477535a1116b3a4f416243fc;p=wavpack.git

diff --git a/examples/WvInfo.hs b/examples/WvInfo.hs
index 8b1f5b4..5e0b86f 100644
--- 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 ()