[project @ 1999-05-07 14:52:49 by simonm]

[ghc-hetmet.git] / ghc / tests / lib / should_run / dynamic001.hs

diff --git a/ghc/tests/lib/should_run/dynamic001.hs b/ghc/tests/lib/should_run/dynamic001.hs
index 9da1bb5..286b3ae 100644 (file)
--- a/ghc/tests/lib/should_run/dynamic001.hs
+++ b/ghc/tests/lib/should_run/dynamic001.hs
@@ -52,8 +52,8 @@ fromDyn_test = do
    print (fromDyn (toDyn (Left True::Either Bool Bool)) (Right False :: Either Bool Bool))
    print (fromDyn (toDyn LT) GT)
    print (fromDyn (toDyn ((+1)::Int->Int)) False)
-   print (fromDyn (toDyn ((+1)::Int->Int)) ((+2)::Int->Int))
-   print (fromDyn (toDyn ((++)::[Int]->[Int]->[Int])) ((undefined)::[Int]->[Int]->[Int]))
+   print ((fromDyn (toDyn ((+1)::Int->Int)) ((+2)::Int->Int)) 3)
+   print ((fromDyn (toDyn ((++)::[Int]->[Int]->[Int])) ((undefined)::[Int]->[Int]->[Int])) [1] [2])
 
     
 -- Misc test utilities: