Commit 6999465d authored by Martin Wierich's avatar Martin Wierich
Browse files

bugfix

parent f92cb4f5
...@@ -246,7 +246,7 @@ smallerOrEqual t1 t2 ...@@ -246,7 +246,7 @@ smallerOrEqual t1 t2
instance =< AType instance =< AType
where where
(=<) {at_type=at_type_1} {at_type=at_type_2} (=<) {at_type=at_type_1} {at_type=at_type_2}
= at_type_1 =< at_type_2 = smallerOrEqual at_type_1 at_type_2
instance =< BasicType instance =< BasicType
where where
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment