git.iko.soy/elk
on master help sign in
Add Tuples to the built-in ADTs
20086faEvan Czaplicki
compiler/Transform/Canonicalize/Environment.hs+3−3
compare with master
unifiedsplit
@@ -26,10 +26,10 @@ data Environment = Env
26
26
27builtIns :: Environment
27builtIns :: Environment
28builtIns =
28builtIns =
29− Env { _values = builtIn ([saveEnvName,"::","[]"] ++ tuples)
29+ Env { _values = builtIn (tuples ++ [saveEnvName,"::","[]"])
30− , _adts = builtIn ["_List","Int","Float","Char","Bool","String"]
30+ , _adts = builtIn (tuples ++ ["_List","Int","Float","Char","Bool","String"])
31 , _aliases = dict []
31 , _aliases = dict []
32− , _patterns = builtIn (["::","[]"] ++ tuples)
32+ , _patterns = builtIn (tuples ++ ["::","[]"])
33 }
33 }
34 where
34 where
35 builtIn xs = dict $ map (\x -> (x, Var.Canonical Var.BuiltIn x)) xs
35 builtIn xs = dict $ map (\x -> (x, Var.Canonical Var.BuiltIn x)) xs