diff options
| author | Thomas Miedema <thomasmiedema@gmail.com> | 2016-02-22 21:32:51 +0100 |
|---|---|---|
| committer | Thomas Miedema <thomasmiedema@gmail.com> | 2016-02-23 12:27:58 +0100 |
| commit | d5e8b3940e8f190e9ad94e044014162bcb808c3a (patch) | |
| tree | 08b50be66f2ac62e9f7ab52a558c8b7e9f196849 /testsuite/tests/arityanal/f13.hs | |
| parent | 6074c108b66ec9cd2230852addb60782a8b17e0a (diff) | |
| download | haskell-d5e8b3940e8f190e9ad94e044014162bcb808c3a.tar.gz | |
Testsuite: delete Windows line endings [skip ci] (#11631)
Diffstat (limited to 'testsuite/tests/arityanal/f13.hs')
| -rw-r--r-- | testsuite/tests/arityanal/f13.hs | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/testsuite/tests/arityanal/f13.hs b/testsuite/tests/arityanal/f13.hs index 1b7a779c37..5ab7823b0d 100644 --- a/testsuite/tests/arityanal/f13.hs +++ b/testsuite/tests/arityanal/f13.hs @@ -1,8 +1,8 @@ -module F13 where
-
-f13 x y = let f13f = if (x>0) then \z -> z x y
- else \z -> y
- f13h = let v = f13f 5
- in \w -> w + v
- in \u -> f13h u
-
+module F13 where + +f13 x y = let f13f = if (x>0) then \z -> z x y + else \z -> y + f13h = let v = f13f 5 + in \w -> w + v + in \u -> f13h u + |