touch :: Handle -> IO ()
touch (Handle timeout cookie _) = do
  tm <- getSystemTimerManager
  updateTimeout tm cookie timeout
touch :: Handle -> IO ()
touch (Handle timeout cookie _) = do
  tm <- getSystemTimerManager
  updateTimeout tm cookie timeout
touch (Handle timeout cookie _) = do
  tm <- getSystemTimerManager
  updateTimeout tm cookie timeout