plugins-1.3: testsuite/makewith/global_pragma/Plugin.hs

{-# 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