
31 Jul
2011
31 Jul
'11
12:25 p.m.
On Sun, 31 Jul 2011 12:20:17 -0400
David Place
____________________ David Place Owner, Panpipes Ho! LLC http://panpipesho.com d@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']
Now I have recvMsg h = do c <- B.hGet h 1 hFlush h c' <- B.hGetNonBlocking h 40000 hFlush h return $ B.concat [c,c'] Doesn't help either. -- Manfred