Only expose a constructor for concrete records
commit5a6c9c03501a3e4e1ac90775a19440316f1ff24d
authorEvan Czaplicki <info@elm-lang.org>
dateWed 30 Sep 2015, 00:32 (11 years ago)
parent220f900
src/Canonicalize.hs+4−2
@@ -320,9 +320,11 @@ declToValue (A.A _ decl) =
320320
321321 D.TypeAlias name _ tipe ->
322322 case tipe of
323− A.A _ (Type.RRecord _ _) ->
323+ A.A _ (Type.RRecord _ Nothing) ->
324324 [ Var.Alias name, Var.Value name ]
325− _ -> [ Var.Alias name ]
325+
326+ _ ->
327+ [ Var.Alias name ]
326328
327329 _ -> []
328330