diff options
| author | Thomas Miedema <thomasmiedema@gmail.com> | 2016-06-18 22:44:19 +0200 |
|---|---|---|
| committer | Thomas Miedema <thomasmiedema@gmail.com> | 2016-06-20 16:22:07 +0200 |
| commit | a7160faafd44d64c2b20a4cc65e80136a93e1aaa (patch) | |
| tree | c0fa999a4696a5a05e861b0eacfcd92358d77a48 /testsuite/tests/codeGen/should_run/cgrun015.hs | |
| parent | 5b03dc69389dc387b922c589ab9a8b92079e6a96 (diff) | |
| download | haskell-a7160faafd44d64c2b20a4cc65e80136a93e1aaa.tar.gz | |
Testsuite: tabs -> spaces [skip ci]
Diffstat (limited to 'testsuite/tests/codeGen/should_run/cgrun015.hs')
| -rw-r--r-- | testsuite/tests/codeGen/should_run/cgrun015.hs | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/testsuite/tests/codeGen/should_run/cgrun015.hs b/testsuite/tests/codeGen/should_run/cgrun015.hs index 4263c4b1b6..e60e46faf4 100644 --- a/testsuite/tests/codeGen/should_run/cgrun015.hs +++ b/testsuite/tests/codeGen/should_run/cgrun015.hs @@ -9,20 +9,20 @@ data CList = CNil | CCons Int# CList mk :: Int# -> CList mk n = if isTrue# (n ==# 0#) - then CNil - else CCons 1# (mk (n -# 1#)) + then CNil + else CCons 1# (mk (n -# 1#)) clen :: CList -> Int# clen CNil = 0# clen (CCons _ cl) = 1# +# (clen cl) main = case (clen list4) of - len4 -> - case (len4 +# len4) of - 8# -> finish 65# -- 'A' - _ -> finish 66# -- 'B' + len4 -> + case (len4 +# len4) of + 8# -> finish 65# -- 'A' + _ -> finish 66# -- 'B' where - list4 = mk 4# + list4 = mk 4# finish :: Int# -> IO () finish n = c_putchar (castCharToCChar (C# (chr# n))) >> return () |