Fix a couple of test cases. A bit of renaming

This commit is contained in:
Don Stewart 2005-04-24 10:06:44 +00:00
parent e5569da033
commit a7d3447310
9 changed files with 1 additions and 1 deletions

View File

@ -6,5 +6,5 @@
--
import Eval.Haskell
main = do fn <- unsafeEval "(\\(x::Int) -> (x,x))" [] :: IO (Maybe (Int -> (Int,Int)))
main = do fn <- unsafeEval "(\\x -> (x,x::Int))" [] :: IO (Maybe (Int -> (Int,Int)))
when (isJust fn) $ putStrLn $ show $ (fromJust fn) 7