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 | 46ff80f26d1892e1b50e3f10c5d3fded33da6e81 (patch) | |
| tree | c53fd835b689b6b64a729a42e4cc6482d8fb5215 /testsuite/tests/simplCore/should_compile/T3118.hs | |
| parent | 7e7094f166b6e475a49e20b98cbca851334aedaf (diff) | |
| download | haskell-46ff80f26d1892e1b50e3f10c5d3fded33da6e81.tar.gz | |
Testsuite: tabs -> spaces [skip ci]
Diffstat (limited to 'testsuite/tests/simplCore/should_compile/T3118.hs')
| -rw-r--r-- | testsuite/tests/simplCore/should_compile/T3118.hs | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/testsuite/tests/simplCore/should_compile/T3118.hs b/testsuite/tests/simplCore/should_compile/T3118.hs index 57b1ad0c92..8ee50b342a 100644 --- a/testsuite/tests/simplCore/should_compile/T3118.hs +++ b/testsuite/tests/simplCore/should_compile/T3118.hs @@ -3,10 +3,10 @@ -- The test is quite delicate. It aims to get 'f' to look like -- f y = case x of -- Red -> (y, y) --- _ -> let v = case x of --- Green -> 2 --- Blue -> 3 --- in (v, 5) +-- _ -> let v = case x of +-- Green -> 2 +-- Blue -> 3 +-- in (v, 5) -- -- And now float the inner case to top level -- so that it's not so obvious that the Red case @@ -33,8 +33,8 @@ x = g True f :: Int -> (Int,Int) f y = case x of Red -> (y, y) - xx -> let v = case xx of - Red -> 1 - Green -> 2 - Blue -> 3 - in (v, 5) + xx -> let v = case xx of + Red -> 1 + Green -> 2 + Blue -> 3 + in (v, 5) |