Properly print the unit type
commite9a2672135aa4b102d7c86bfe0e6aa10fec4ddbe
authorEvan Czaplicki <info@elm-lang.org>
dateWed 4 Jun 2014, 17:00 (12 years ago)
parente9ecbe1
compiler/AST/Type.hs+3−1
@@ -49,7 +49,9 @@ instance (Var.ToString var, Pretty var) => Pretty (Type var) where
4949
5050 Var x -> P.text x
5151
52− Type v -> P.text (Var.toString v)
52+ Type var ->
53+ let v = Var.toString var in
54+ P.text (if v == "_Tuple0" then "()" else v)
5355
5456 App f args ->
5557 case (f,args) of