diff options
author | Péter Diviánszky <divipp@gmail.com> | 2016-05-03 16:05:11 +0200 |
---|---|---|
committer | Péter Diviánszky <divipp@gmail.com> | 2016-05-03 16:05:11 +0200 |
commit | 4742062dea52956de1490ae2e46b25b458ba94a5 (patch) | |
tree | 046427e90cbff8eb03e88a7e6a2890ceaa469eca /testdata/Internals.out | |
parent | 57d10e734217c6eeaaec61131861bfd2861a4eb0 (diff) |
shorten more lambdas
Diffstat (limited to 'testdata/Internals.out')
-rw-r--r-- | testdata/Internals.out | 8 |
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 |
82 | fromInt | 82 | fromInt |
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 |
101 | compare | 101 | compare |
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 |
116 | negate | 116 | negate |
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 |