2005-04-24 08:51:33 +00:00

18 lines
443 B
Plaintext

{-# GLOBALOPTIONS -package posix #-}
-- illustrates the use of static options in pragmas
import System.IO.Unsafe
import System.IO
import System.Process
resource = unsafe { field = date }
-- illustrates the use of the devil's work
date :: String
date = unsafePerformIO $ do
(_,outh,_,proc) <- runInteractiveProcess "date" [] Nothing Nothing
waitForProcess proc
s <- hGetContents outh
return s