netRead :: MVar Scurry -> Socket -> IO ()
netRead _ sck = genericCatch "netRead" (forever go)
    where
        go = netDbg "netRead: read" >> recvFrom sck 1600
netRead :: MVar Scurry -> Socket -> IO ()
netRead _ sck = genericCatch "netRead" (forever go)
    where
        go = netDbg "netRead: read" >> recvFrom sck 1600
netRead _ sck = genericCatch "netRead" (forever go)
    where
        go = netDbg "netRead: read" >> recvFrom sck 1600