@@ -101,10 +101,9 @@ portTypes rules expr =
101 , " through port '", name, "' is invalid." ]
101 , " through port '", name, "' is invalid." ]
102 , txt [ "It contains ", kind, ":\n" ]
102 , txt [ "It contains ", kind, ":\n" ]
103 , (P.nest 4 . SPP.pretty $ Alias.realias rules tipe) <> P.text "\n"
103 , (P.nest 4 . SPP.pretty $ Alias.realias rules tipe) <> P.text "\n"
104− , txt [ "Acceptable values for ", dir "incoming" "outgoing"
104+ , txt [ "Acceptable values for ", dir "incoming" "outgoing", " ports include:" ]
105− , " ports include JavaScript values and" ]
106− , txt [ "the following Elm values: Ints, Floats, Bools, Strings, Maybes," ]
105+ , txt [ " Ints, Floats, Bools, Strings, Maybes, Lists, Tuples," ]
107− , txt [ "Lists, Tuples, ", dir "" "first-order functions, ", "and concrete records." ]
106+ , txt [ " Json.Values, ", dir "" "first-order functions, ", "and concrete records." ]
108 ] ++ if couldBeAlias then aliasWarning else []
107 ] ++ if couldBeAlias then aliasWarning else []
110 aliasWarning =
109 aliasWarning =