Update examples to use new module names

This commit is contained in:
Don Stewart
2005-05-15 06:03:55 +00:00
parent cfae954a22
commit 63717dc07c
94 changed files with 97 additions and 109 deletions

View File

@ -1,5 +1,5 @@
import Eval.Haskell
import System.Eval.Haskell
main = do i <- eval "1 + 6 :: Int" [] :: IO (Maybe Int)
if isJust i then putStrLn $ show (fromJust i) else return ()

View File

@ -1,4 +1,4 @@
import Eval.Haskell
import System.Eval.Haskell
main = do m_s <- eval "map toUpper \"haskell\"" ["Data.Char"]
case m_s of

View File

@ -10,7 +10,7 @@
#include "../../../config.h"
import Eval.Haskell
import System.Eval.Haskell
import AltData.Dynamic
-- import Data.Dynamic

View File

@ -1,5 +1,5 @@
import Eval.Haskell
import System.Eval.Haskell
main = do i <- eval_ "Just (7 :: Int)"
["Maybe"]

View File

@ -4,7 +4,7 @@
--
-- needs unsafeEval because eval has a broken Dynamic check
--
import Eval.Haskell
import System.Eval.Haskell
main = do fn <- unsafeEval "(\\x -> (x,x::Int))" [] :: IO (Maybe (Int -> (Int,Int)))
when (isJust fn) $ putStrLn $ show $ (fromJust fn) 7

View File

@ -6,7 +6,7 @@
module Main where
import Poly
import Eval.Haskell
import System.Eval.Haskell
main = do m_f <- eval "Fn (\\x y -> x == y)" ["Poly"]
when (isJust m_f) $ do

View File

@ -1,6 +1,6 @@
import Plugins.Make
import Eval.Haskell
import System.Plugins.Make
import System.Eval.Haskell
main = do make "a/Extra.hs" []