Changeset 3897 for src/Pugs/Embed/Haskell.hs
- Timestamp:
- 05/26/05 04:01:01 (4 years ago)
- svk:copy_cache_prev:
- 5482
- Files:
-
- 1 modified
-
src/Pugs/Embed/Haskell.hs (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
src/Pugs/Embed/Haskell.hs
r3568 r3897 1 {-# OPTIONS_GHC -fglasgow-exts -cpp -package eval#-}1 {-# OPTIONS_GHC -fglasgow-exts -cpp -package plugins #-} 2 2 3 3 module Pugs.Embed.Haskell where … … 13 13 #else 14 14 15 import qualified Eval15 import qualified System.Eval 16 16 import Pugs.AST 17 17 … … 21 21 -- eval_ code [import] [flags] [package.confs] [load paths] 22 22 -- -> IO (Either [error-strings] (Maybe a)) 23 ret <- liftIO $ Eval.eval_ code imports [] [] []23 ret <- liftIO $ System.Eval.eval_ code imports [] [] [] 24 24 case ret of 25 25 Right (Just x) -> return $ VStr x
