summaryrefslogtreecommitdiff
path: root/testdata/Internals.out
diff options
context:
space:
mode:
authorPéter Diviánszky <divipp@gmail.com>2016-05-03 16:05:11 +0200
committerPéter Diviánszky <divipp@gmail.com>2016-05-03 16:05:11 +0200
commit4742062dea52956de1490ae2e46b25b458ba94a5 (patch)
tree046427e90cbff8eb03e88a7e6a2890ceaa469eca /testdata/Internals.out
parent57d10e734217c6eeaaec61131861bfd2861a4eb0 (diff)
shorten more lambdas
Diffstat (limited to 'testdata/Internals.out')
-rw-r--r--testdata/Internals.out8
1 files changed, 4 insertions, 4 deletions
diff --git a/testdata/Internals.out b/testdata/Internals.out
index c55525d7..c76420ae 100644
--- a/testdata/Internals.out
+++ b/testdata/Internals.out
@@ -80,7 +80,7 @@ isEQ
80 (_rhs ('Empty "no instance of 'Num on ???")))))) 80 (_rhs ('Empty "no instance of 'Num on ???"))))))
81 :: Type -> Type 81 :: Type -> Type
82fromInt 82fromInt
83 = (\ @a -> \ @_ -> match'Int 83 = (\ @a @_ -> match'Int
84 (\_ -> _) 84 (\_ -> _)
85 (_rhs \(b := _rhs \(c :: _) -> c) -> b) 85 (_rhs \(b := _rhs \(c :: _) -> c) -> b)
86 a 86 a
@@ -99,7 +99,7 @@ fromInt
99 (_rhs undefined))))) 99 (_rhs undefined)))))
100 :: forall g . Num g => Int -> g 100 :: forall g . Num g => Int -> g
101compare 101compare
102 = (\ @a -> \ @_ -> match'Int 102 = (\ @a @_ -> match'Int
103 (\_ -> _) 103 (\_ -> _)
104 (_rhs \(b := _rhs primCompareInt) -> b) 104 (_rhs \(b := _rhs primCompareInt) -> b)
105 a 105 a
@@ -114,7 +114,7 @@ compare
114 (match'Nat (\_ -> _) (_rhs \(e := _rhs undefined) -> e) a (_rhs undefined))))) 114 (match'Nat (\_ -> _) (_rhs \(e := _rhs undefined) -> e) a (_rhs undefined)))))
115 :: forall f . Num f => f -> f -> Ordering 115 :: forall f . Num f => f -> f -> Ordering
116negate 116negate
117 = (\ @a -> \ @_ -> match'Int 117 = (\ @a @_ -> match'Int
118 (\_ -> _) 118 (\_ -> _)
119 (_rhs \(b := _rhs primNegateInt) -> b) 119 (_rhs \(b := _rhs primNegateInt) -> b)
120 a 120 a
@@ -156,7 +156,7 @@ negate
156 (_rhs ('Empty "no instance of 'Eq on ???")))))))) 156 (_rhs ('Empty "no instance of 'Eq on ???"))))))))
157 :: Type -> Type 157 :: Type -> Type
158== 158==
159 = (\ @a -> \ @_ -> match'String 159 = (\ @a @_ -> match'String
160 (\_ -> _) 160 (\_ -> _)
161 (_rhs \(b := \(c :: _) (d :: _) -> _rhs (isEQ (primCompareString c d))) -> b) 161 (_rhs \(b := \(c :: _) (d :: _) -> _rhs (isEQ (primCompareString c d))) -> b)
162 a 162 a