Sockeye: Clean up ASTs
[barrelfish] / tools / sockeye / SockeyeNetBuilder.hs
index 22685d6..84f5f29 100644 (file)
@@ -50,7 +50,7 @@ instance Show NetBuildFails where
 type PortMap = Map InstAST.Identifier NetAST.NodeId
 
 data Context = Context
-    { modules      :: Map String InstAST.Module
+    { modules      :: Map InstAST.Identifier InstAST.Module
     , curNamespace :: [String]
     , inPortMap    :: PortMap
     , outPortMap   :: PortMap