[project @ 2001-08-22 12:24:41 by simonmar]

[ghc-hetmet.git] / ghc / tests / ccall / should_run / callback.hs

diff --git a/ghc/tests/ccall/should_run/callback.hs b/ghc/tests/ccall/should_run/callback.hs
deleted file mode 100644 (file)
index 8f8d1d6..0000000
--- a/ghc/tests/ccall/should_run/callback.hs
+++ /dev/null
@@ -1,16 +0,0 @@
-module Main (main, hputc) where
-
-import IO
-
-main = _casm_GC_ ``rts_evalIO(
-                       rts_apply(
-                         &Main_hputc_closure,
-                         rts_mkChar('x')
-                         ),
-                       NULL
-                  );'' :: IO ()
-
-hputc :: Char -> IO ()
-hputc c = hPutChar stdout c >> hPutChar stdout '\n'
-
-foreign export hputc :: Char -> IO ()