summaryrefslogtreecommitdiff
path: root/testdata/Prelude.out
diff options
context:
space:
mode:
authorPéter Diviánszky <divipp@gmail.com>2016-05-03 15:08:14 +0200
committerPéter Diviánszky <divipp@gmail.com>2016-05-03 15:08:14 +0200
commitced2bb3b8d35d0e2faa21adeff04607a2174ae99 (patch)
tree679e0463b3d88b6176130e1b27187610e254addc /testdata/Prelude.out
parent1b49cc7e377e6c16d6c5bc4cced39dc20b8c0bec (diff)
refactoring
Diffstat (limited to 'testdata/Prelude.out')
-rw-r--r--testdata/Prelude.out3
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
197fstTup = _rhs (hlistConsCase (_ :: _) \(a :: _) -> \_ -> a) 198fstTup = _rhs (hlistConsCase (_ :: _) \(a :: _) -> \_ -> a)