putTime = liftIO $ do
  withFile "/tmp/time.log" AppendMode $ \h -> do
    ZonedTime time tz <- getZonedTime
    I.hPutStrLn h $ show time
putTime = liftIO $ do
  withFile "/tmp/time.log" AppendMode $ \h -> do
    ZonedTime time tz <- getZonedTime
    I.hPutStrLn h $ show time
putTime = liftIO $ do
  withFile "/tmp/time.log" AppendMode $ \h -> do
    ZonedTime time tz <- getZonedTime
    I.hPutStrLn h $ show time