on master help sign in
Generate.Mode.shortenFieldNames works on Opt.GlobalGraph
64de845Evan Czaplicki
compiler/src/Generate/Mode.hs+2−2
@@ -41,8 +41,8 @@ type ShortFieldNames =
41 Map.Map Name.Name JsName.Name
41 Map.Map Name.Name JsName.Name
42
42
43
43
44−shortenFieldNames :: Opt.Graph -> ShortFieldNames
44+shortenFieldNames :: Opt.GlobalGraph -> ShortFieldNames
45−shortenFieldNames (Opt.Graph _ _ frequencies) =
45+shortenFieldNames (Opt.GlobalGraph _ frequencies) =
46 Map.foldr addToShortNames Map.empty $
46 Map.foldr addToShortNames Map.empty $
47 Map.foldrWithKey addToBuckets Map.empty frequencies
47 Map.foldrWithKey addToBuckets Map.empty frequencies
48
48