@@ -41,8 +41,8 @@ type ShortFieldNames =
41 Map.Map Name.Name JsName.Name
41 Map.Map Name.Name JsName.Name
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