data PersistentCMState
= PersistentCMState {
hst :: HomeSymbolTable, -- home symbol table
- hit :: HomeInterfaceTable, -- home interface table
+ hit :: HomeIfaceTable, -- home interface table
ui :: UnlinkedImages, -- the unlinked images
mg :: ModuleGraph -- the module graph
}
hst = emptyHST, hit = emptyHIT,
ui = emptyUI, mg = emptyMG }
-emptyHIT :: HomeInterfaceTable
+emptyHIT :: HomeIfaceTable
emptyHIT = emptyFM
emptyHST :: HomeSymbolTable
emptyHST = emptyFM