diff options
Diffstat (limited to 'ghc/compiler/ilxGen/tests/yes2.hs')
| -rw-r--r-- | ghc/compiler/ilxGen/tests/yes2.hs | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/ghc/compiler/ilxGen/tests/yes2.hs b/ghc/compiler/ilxGen/tests/yes2.hs deleted file mode 100644 index 7fa20c5b7d..0000000000 --- a/ghc/compiler/ilxGen/tests/yes2.hs +++ /dev/null @@ -1,18 +0,0 @@ - -import PrelIOBase -foreign import "ilxHello" unsafe ilxHello :: IO () - - - -seqIO :: IO () -> IO () -> IO () -seqIO (IO m) (IO k) = IO ( \ s -> - case m s of - (# new_s, a #) -> k new_s - ) - - -yes () = seqIO ilxHello (yes ()) - -main :: IO () -main = yes () - |