yogsototh/elm
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add String as an appendable type

Browse source
This commit is contained in:
Evan Czaplicki 2013-10-02 16:04:30 -07:00
parent 402f048bc9
commit dce5e3eade
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
compiler/Type/Unify.hs
View file

@ -129,8 +129,10 @@ actuallyUnify span variable1 variable2 = do
(Is Comparable, _, _, _) -> unifyComparableStructure variable1 variable2
(_, Is Comparable, _, _) -> unifyComparableStructure variable2 variable1
(Is Appendable, _, _, Just "Text.Text") -> flexAndUnify variable1
(_, Is Appendable, Just "Text.Text", _) -> flexAndUnify variable2
(Is Appendable, _, _, Just ctor)
| ctor `elem` ["Text.Text","String"] -> flexAndUnify variable1
(_, Is Appendable, Just ctor, _)
| ctor `elem` ["Text.Text","String"] -> flexAndUnify variable2
(Is Appendable, _, _, _) -> unifyAppendable variable1 variable2
(_, Is Appendable, _, _) -> unifyAppendable variable2 variable1