@@ -85,7 +85,7 @@ actuallyUnify span variable1 variable2 = do
85 "Int, Float, Char, or a list or tuple of comparables."
85 "Int, Float, Char, or a list or tuple of comparables."
87 unifyComparable var name
87 unifyComparable var name
88− | name `elem` ["Int","Float","Char"] = flexAndUnify var
88+ | name `elem` ["Int","Float","Char","comparable"] = flexAndUnify var
89 | otherwise = comparableError ""
89 | otherwise = comparableError ""
91 unifyComparableStructure varSuper varFlex =
91 unifyComparableStructure varSuper varFlex =