mirror of
https://github.com/snoyberg/keter.git
synced 2024-12-16 01:55:11 +03:00
11 lines
234 B
Haskell
11 lines
234 B
Haskell
|
import Control.Concurrent
|
||
|
|
import Data.Time
|
||
|
|
import Control.Monad
|
||
|
|
import System.IO
|
||
|
|
|
||
|
|
main = withFile "process2.txt" WriteMode $ \h -> forever $ do
|
||
|
|
now <- getCurrentTime
|
||
|
|
hPutStrLn h $ show now
|
||
|
|
hFlush h
|
||
|
|
threadDelay 1000000
|