Sockeye: Implement port mappings
[barrelfish] / tools / sockeye / SockeyeASTParser.hs
index ee93b29..06de7f3 100644 (file)
@@ -56,10 +56,8 @@ data ModuleBody = ModuleBody
     } deriving (Show)
 
 data PortDef
-    = InputPortDef
-        { portId :: Identifier }
-    | OutputPortDef
-        { portId :: Identifier }
+    = InputPortDef Identifier
+    | OutputPortDef Identifier
     | MultiPortDef (For PortDef)
     deriving (Show)