diff options
author | Péter Diviánszky <divipp@gmail.com> | 2016-05-03 15:08:14 +0200 |
---|---|---|
committer | Péter Diviánszky <divipp@gmail.com> | 2016-05-03 15:08:14 +0200 |
commit | ced2bb3b8d35d0e2faa21adeff04607a2174ae99 (patch) | |
tree | 679e0463b3d88b6176130e1b27187610e254addc /testdata/Prelude.out | |
parent | 1b49cc7e377e6c16d6c5bc4cced39dc20b8c0bec (diff) |
refactoring
Diffstat (limited to 'testdata/Prelude.out')
-rw-r--r-- | testdata/Prelude.out | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/testdata/Prelude.out b/testdata/Prelude.out index ead20303..88464b4e 100644 --- a/testdata/Prelude.out +++ b/testdata/Prelude.out | |||
@@ -191,7 +191,8 @@ isKeyC | |||
191 | (_rhs ('Empty "")) | 191 | (_rhs ('Empty "")) |
192 | \(d :: _) (e :: _) -> case'RecItem | 192 | \(d :: _) (e :: _) -> case'RecItem |
193 | \_ -> _ :: _ | 193 | \_ -> _ :: _ |
194 | \(f :: _) (g :: _) -> _rhs (primIfThenElse (a == f) (b ~ g) (isKeyC a b e)) | 194 | \(f :: _) (g :: _) -> _rhs |
195 | (primIfThenElse (a == f) (b `'EqCTt` g) (isKeyC a b e)) | ||
195 | d | 196 | d |
196 | c | 197 | c |
197 | fstTup = _rhs (hlistConsCase (_ :: _) \(a :: _) -> \_ -> a) | 198 | fstTup = _rhs (hlistConsCase (_ :: _) \(a :: _) -> \_ -> a) |