____________________ David Place Owner, Panpipes Ho! LLC http://panpipesho.com d at vidplace.com On Jul 31, 2011, at 12:17 PM, Manfred Lotz wrote: > c <- B.hGet h 1 > hFlush h > c' <- B.hGetNonBlocking h 40000 Try putting one here too. Can't hurt right? > return $ B.concat [c,c']