netWrite :: MVar Scurry -> Socket -> IO ()
netWrite _ sck = genericCatch "netWrite" task
    where
        task = forever $ idle
        idle = do
            delayOneSec
            netDbg "netWrite: tick"
netWrite :: MVar Scurry -> Socket -> IO ()
netWrite _ sck = genericCatch "netWrite" task
    where
        task = forever $ idle
        idle = do
            delayOneSec
            netDbg "netWrite: tick"
netWrite _ sck = genericCatch "netWrite" task
    where
        task = forever $ idle
        idle = do
            delayOneSec
            netDbg "netWrite: tick"