diff options
Diffstat (limited to 'testdata/typeclass.out')
-rw-r--r-- | testdata/typeclass.out | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/testdata/typeclass.out b/testdata/typeclass.out index b74a7e31..aecc4686 100644 --- a/testdata/typeclass.out +++ b/testdata/typeclass.out | |||
@@ -1,12 +1,21 @@ | |||
1 | main is not found | ||
1 | ------------ desugared source code | 2 | ------------ desugared source code |
2 | infix 4 == | 3 | infix 4 == |
4 | |||
3 | infix 4 /= | 5 | infix 4 /= |
6 | |||
4 | infix 4 < | 7 | infix 4 < |
8 | |||
5 | infixr 3 && | 9 | infixr 3 && |
10 | |||
6 | infixr 2 || | 11 | infixr 2 || |
12 | |||
7 | not = \(a :: _) -> case'Bool (\_ -> _) (_rhs True) (_rhs False) a | 13 | not = \(a :: _) -> case'Bool (\_ -> _) (_rhs True) (_rhs False) a |
14 | |||
8 | (&&) = \(a :: _) (b :: _) -> case'Bool (\_ -> _) (_rhs False) (_rhs b) a | 15 | (&&) = \(a :: _) (b :: _) -> case'Bool (\_ -> _) (_rhs False) (_rhs b) a |
16 | |||
9 | (||) = \(a :: _) (b :: _) -> case'Bool (\_ -> _) (_rhs b) (_rhs True) a | 17 | (||) = \(a :: _) (b :: _) -> case'Bool (\_ -> _) (_rhs b) (_rhs True) a |
18 | |||
10 | 'Eq :: Type -> Type | 19 | 'Eq :: Type -> Type |
11 | 'Eq | 20 | 'Eq |
12 | = \(a :: _) -> match'Bool | 21 | = \(a :: _) -> match'Bool |
@@ -14,6 +23,7 @@ not = \(a :: _) -> case'Bool (\_ -> _) (_rhs True) (_rhs False) a | |||
14 | (_rhs 'Unit) | 23 | (_rhs 'Unit) |
15 | a | 24 | a |
16 | (_rhs ('Empty "no instance of 'Eq on ???")) | 25 | (_rhs ('Empty "no instance of 'Eq on ???")) |
26 | |||
17 | (==) :: forall a . Eq a => a -> a -> Bool | 27 | (==) :: forall a . Eq a => a -> a -> Bool |
18 | (==) | 28 | (==) |
19 | = \ @a @_ -> match'Bool | 29 | = \ @a @_ -> match'Bool |
@@ -23,8 +33,8 @@ not = \(a :: _) -> case'Bool (\_ -> _) (_rhs True) (_rhs False) a | |||
23 | := \(c :: _) (d :: _) -> case'Bool (\_ -> _) (_rhs (not d)) (_rhs d) c) -> b) | 33 | := \(c :: _) (d :: _) -> case'Bool (\_ -> _) (_rhs (not d)) (_rhs d) c) -> b) |
24 | a | 34 | a |
25 | (_rhs undefined) | 35 | (_rhs undefined) |
36 | |||
26 | (/=) = \(a :: _) (b :: _) -> _rhs (not (a == b)) | 37 | (/=) = \(a :: _) (b :: _) -> _rhs (not (a == b)) |
27 | main is not found | ||
28 | ------------ trace | 38 | ------------ trace |
29 | not :: Bool -> Bool | 39 | not :: Bool -> Bool |
30 | (&&) :: Bool -> Bool -> Bool | 40 | (&&) :: Bool -> Bool -> Bool |