acceptOne :: N.Socket -> (Handle -> IO a) -> IO a
acceptOne sock action = do
  (clientHandle,_,_) <- N.accept sock
  action clientHandle
acceptOne :: N.Socket -> (Handle -> IO a) -> IO a
acceptOne sock action = do
  (clientHandle,_,_) <- N.accept sock
  action clientHandle
acceptOne sock action = do
  (clientHandle,_,_) <- N.accept sock
  action clientHandle