From 677d78a22915727e380b55232ddb89b0c9ba9ca9 Mon Sep 17 00:00:00 2001 From: Neil Brown Date: Fri, 22 May 2009 21:57:17 +0000 Subject: [PATCH] Added a line to handle some missing cases in ShowCode --- common/ShowCode.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/common/ShowCode.hs b/common/ShowCode.hs index 26f5a30..a25467e 100644 --- a/common/ShowCode.hs +++ b/common/ShowCode.hs @@ -546,6 +546,7 @@ instance ShowOccam A.Specification where = do item <- currentContext (showOccamLine (return (item ++ " ") >> showName n >> showOccamM rep)) -- TODO handle the indent + showOccamM s = tell ["Missing case: ", show s] showProtocolItem :: (A.Name, [A.Type]) -> CodeWriter ()