2005-09-03 04:45:14 +00:00

18 lines
390 B
Haskell

{-# GLOBALOPTIONS -package mtl #-}
module M ( resource ) where
import API
import System.IO.Unsafe
import System.Process
import System.IO
resource = tiny { field = date }
date :: String
date = unsafePerformIO $ do
(_,outh,_,proc) <- runInteractiveProcess "echo" ["hello"] Nothing Nothing
waitForProcess proc
s <- hGetContents outh
return s