git.iko.soy/elk
on master help sign in
Don't alias super simple stuff like Int and Float
8bd16fdEvan Czaplicki
compiler/AST/Type.hs+5−1
compare with master
unifiedsplit
@@ -73,7 +73,11 @@ instance (Var.ToString var, Pretty var) => Pretty (Type var) where
73 prettyField (f,t) = P.text f <+> P.text ":" <+> pretty t
73 prettyField (f,t) = P.text f <+> P.text ":" <+> pretty t
74 prettyFields fields = commaSep (map prettyField fields)
74 prettyFields fields = commaSep (map prettyField fields)
75
75
76− Aliased name _ -> pretty name
76+ Aliased name t ->
77+ let t' = pretty t in
78+ if show t' `elem` ["Int", "Float", "String", "Char", "Bool"]
79+ then t'
80+ else pretty name
77
81
78collectLambdas :: Type var -> [Type var]
82collectLambdas :: Type var -> [Type var]
79collectLambdas tipe =
83collectLambdas tipe =