Commit 2497e35e authored by John van Groningen's avatar John van Groningen

Merge branch '55-fix-equals-for-TypeCons' into 'master'

Fix == for TypeCons, fixing a bug where multiple alternatives of some generic...

Closes #55

See merge request clean-compiler-and-rts/compiler!12
parents 5dca600b 904a83d3
......@@ -129,8 +129,10 @@ instance == SignClassification where
instance == TypeCons where
(==) (TypeConsSymb x) (TypeConsSymb y) = x == y
(==) (TypeConsBasic x) (TypeConsBasic y) = x == y
(==) (TypeConsUnboxedArray x) (TypeConsUnboxedArray y) = x == y
(==) TypeConsArrow TypeConsArrow = True
(==) (TypeConsVar x) (TypeConsVar y) = x == y
(==) (TypeConsQualifiedIdent xmod xname) (TypeConsQualifiedIdent ymod yname) = xmod == ymod && xname == yname
(==) _ _ = False
:: CompareValue :== Int
......
Markdown is supported
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