1 Aug
2011
1 Aug
'11
12:25 a.m.
On Sun, 31 Jul 2011 12:20:17 -0400 David Place <d@vidplace.com> wrote:
____________________ 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