Sockeye: Better error messages for checker
[barrelfish] / tools / sockeye / SockeyeASTFrontend.hs
index c0cd605..987e519 100644 (file)
@@ -34,7 +34,11 @@ data ModuleParam = ModuleParam
 data ModuleParamType 
     = NumberParam
     | AddressParam
-    deriving (Eq, Show)
+    deriving (Eq)
+
+instance Show ModuleParamType where
+    show NumberParam = "int"
+    show AddressParam = "addr"
 
 data ModuleBody = ModuleBody
     { ports     :: [PortDef]