Import hs-plugins cvs

This commit is contained in:
Don Stewart
2005-04-24 08:51:33 +00:00
commit 887fa59389
494 changed files with 23721 additions and 0 deletions

View File

@ -0,0 +1,17 @@
{-# 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