@@ -17,10 +17,15 @@ defaults =
1717 , ["List"] ==> exposing [Var.Value "::"]
1818 , ["Maybe"] ==> exposing [Var.Union "Maybe" Var.openListing]
1919 , ["Result"] ==> exposing [Var.Union "Result" Var.openListing]
20− , ["Signal"] ==> exposing [Var.Alias "Signal"]
20+ , ["Platform"] ==> exposing (map closedType ["Cmd", "Sub", "Program"])
2121 ]
2222
2323
2424exposing :: [Var.Value] -> Module.ImportMethod
2525exposing vars =
2626 Module.ImportMethod Nothing (Var.listing vars)
27+
28+
29+closedType :: String -> Var.Value
30+closedType name =
31+ Var.Union name Var.closedListing