From 560b67de5ec60525414b7fd00bd1ed434b7ad651 Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Sun, 14 Dec 2008 18:26:10 +0000
Subject: [PATCH] Added a missing case in showOccamM for A.Type

---
 common/ShowCode.hs | 1 -
 1 file changed, 1 deletion(-)

diff --git a/common/ShowCode.hs b/common/ShowCode.hs
index 0ffca02..b731521 100644
--- a/common/ShowCode.hs
+++ b/common/ShowCode.hs
@@ -241,7 +241,6 @@ instance ShowOccam A.Type where
   showOccamM A.Any = tell ["ANY"]
   showOccamM (A.Timer _) = tell ["TIMER"]
   showOccamM A.Time = tell ["TIME"]
-  showOccamM A.Infer = tell ["inferred type"]
   showOccamM (A.UnknownVarType _ en)
     = do tell ["(inferred type for: "]
          either showName (tell . (:[]) . show) en