luke
/
sv2v
mirror of https://github.com/zachjs/sv2v.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

faster param type conversion

This commit is contained in:
Zachary Snow 2020-02-09 11:04:11 -05:00
parent fc9999aeea
commit 48f84a9ed4
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/Convert/ParamType.hs
View File

@ -57,7 +57,7 @@ convert files =
explodeDescription other = [other]
-- remove or rewrite source modules that are no longer needed
files''' = map (uniq . concatMap replaceDefault) files''
files''' = map (\a -> concatMap (replaceDefault a) a) files''
(usageMapRaw, usedTypedModulesRaw) =
execWriter $ mapM (mapM collectUsageInfoM) files''
usageMap = Map.unionsWith Set.union $ map (uncurry Map.singleton)
@ -82,8 +82,8 @@ convert files =
then tell (Set.empty, Set.singleton m)
else tell (Set.singleton m, Set.empty)
collectModuleItemM _ = return ()
replaceDefault :: Description -> [Description]
replaceDefault (part @ (Part _ _ _ _ name _ _)) =
replaceDefault :: [Description] -> Description -> [Description]
replaceDefault existing (part @ (Part _ _ _ _ name _ _)) =
if Map.notMember name info then
[part]
else if Map.null maybeTypeMap then
@ -93,6 +93,7 @@ convert files =
else if all isNothing maybeTypeMap then
[]
else
filter (not . flip elem existing) $
(:) (removeDefaultTypeParams part) $
if isNothing typeMap
then []
@ -100,7 +101,7 @@ convert files =
where
maybeTypeMap = snd $ info Map.! name
typeMap = defaultInstance maybeTypeMap
replaceDefault other = [other]
replaceDefault _ other = [other]
removeDefaultTypeParams :: Description -> Description
removeDefaultTypeParams (part @ Part{}) =