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