move interface conversion assign bindings to be after inlining

This commit is contained in:
Zachary Snow 2019-03-08 18:23:38 -05:00
parent e187de5623
commit 73b11b3662
1 changed files with 1 additions and 1 deletions

View File

@ -162,7 +162,7 @@ lookupType _ expr = error $ "lookupType on fancy expr: " ++ show expr
inlineInterface :: Interface -> (Identifier, [PortBinding]) -> [ModuleItem] inlineInterface :: Interface -> (Identifier, [PortBinding]) -> [ModuleItem]
inlineInterface (ports, items) (instanceName, instancePorts) = inlineInterface (ports, items) (instanceName, instancePorts) =
(:) (MIPackageItem $ Comment $ "expanded instance: " ++ instanceName) $ (:) (MIPackageItem $ Comment $ "expanded instance: " ++ instanceName) $
(++) portBindings $ flip (++) portBindings $
map (traverseNestedModuleItems removeModport) $ map (traverseNestedModuleItems removeModport) $
map (traverseNestedModuleItems removeMIDeclDir) $ map (traverseNestedModuleItems removeMIDeclDir) $
map (prefixModuleItems prefix) $ map (prefixModuleItems prefix) $