diff options
Diffstat (limited to 'ghc/compiler/tests/validation-misc/Echo.hs')
| -rw-r--r-- | ghc/compiler/tests/validation-misc/Echo.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/ghc/compiler/tests/validation-misc/Echo.hs b/ghc/compiler/tests/validation-misc/Echo.hs new file mode 100644 index 0000000000..8711420239 --- /dev/null +++ b/ghc/compiler/tests/validation-misc/Echo.hs @@ -0,0 +1,8 @@ +import MiniPrel + +main = (ccall getchar) `thenU` ( \ ch -> + case ch of + -1# -> (ccall exit 0#) + _ -> (ccall putchar ch) `thenU` ( \ _ -> + main ) + ) |