Sockeye: Start reimplementing net builder on top of instantiator
[barrelfish] / tools / sockeye / SockeyeAST.hs
index 4856eb2..323f8d7 100644 (file)
   Attn: Systems Group.
 -}
 
-module SockeyeAST where
+module SockeyeAST 
+ ( module SockeyeAST
+ , module SockeyeASTInstantiator
+ ) where
 
 import Data.Map (Map)
 
+import SockeyeASTInstantiator
+    ( NodeType(Other, Device, Memory) )
+
 newtype SockeyeSpec = SockeyeSpec
     { modules :: Map String Module }
     deriving (Show)
@@ -102,12 +108,6 @@ data NodeSpec = NodeSpec
     , overlay   :: Maybe OverlaySpec
     } deriving (Show)
 
-data NodeType
-    = Memory
-    | Device
-    | Other
-    deriving (Show)
-
 data BlockSpec 
     = SingletonBlock
         { base :: Address }