Generate.Mode.shortenFieldNames works on Opt.GlobalGraph
commit64de845f9942170d9c16c922ca6c6592a140d05f
authorEvan Czaplicki <evancz@users.noreply.github.com>
dateSun 24 Mar 2019, 15:39 (8 years ago)
parentb4fe1e1
compiler/src/Generate/Mode.hs+2−2
@@ -41,8 +41,8 @@ type ShortFieldNames =
4141 Map.Map Name.Name JsName.Name
4242
4343
44−shortenFieldNames :: Opt.Graph -> ShortFieldNames
45−shortenFieldNames (Opt.Graph _ _ frequencies) =
44+shortenFieldNames :: Opt.GlobalGraph -> ShortFieldNames
45+shortenFieldNames (Opt.GlobalGraph _ frequencies) =
4646 Map.foldr addToShortNames Map.empty $
4747 Map.foldrWithKey addToBuckets Map.empty frequencies
4848