From b546c0fdcb0b1b96d5eaef96198b3b0059243964 Mon Sep 17 00:00:00 2001
From: Adam Sampson <ats@offog.org>
Date: Wed, 4 Oct 2006 17:10:52 +0000
Subject: [PATCH] Clean up PT

---
 fco/PT.hs | 11 -----------
 1 file changed, 11 deletions(-)

diff --git a/fco/PT.hs b/fco/PT.hs
index f5d6f36..82fb825 100644
--- a/fco/PT.hs
+++ b/fco/PT.hs
@@ -7,7 +7,6 @@ module PT where
 import Data.Generics
 
 data Node =
--- {{{ BEGIN baseTransformOc
   Decl Node Node
   | Alt [Node]
   | AltRep Node Node
@@ -19,7 +18,6 @@ data Node =
 -- e.g. In (Name "c") (InCase [Variant .., Variant ..])
   | Variant Node Node
   | InCase [Node]
--- FIXME can turn into InCase ... (Variant .. Skip)
   | InTag Node
   | InAfter Node
 
@@ -152,15 +150,6 @@ data Node =
   | True
   | False
   | Name String
--- }}} END
-
--- {{{ BEGIN baseTransformInt
-  | IntDecl String Node Node
--- }}} END
-
--- {{{ BEGIN baseTransformC
-  | CCode String
--- }}} END
 
   deriving (Show, Eq, Typeable, Data)