change the PGF.Data.Exp type

src-3.0/PGF/Data.hs

@@ -41,19 +41,16 @@ data Type =
   deriving (Eq,Ord,Show)
 
 data Exp =
-   DTr [CId] Atom [Exp]
+   EAbs [CId] Exp
+ | EApp CId [Exp]
+ | EStr   String
+ | EInt   Integer
+ | EFloat Double
+ | EMeta  Integer
+ | EVar   CId
  | EEq [Equation]
   deriving (Eq,Ord,Show)
 
-data Atom =
-   AC CId
- | AS String
- | AI Integer
- | AF Double
- | AM Integer
- | AV CId
-  deriving (Eq,Ord,Show)
-
 data Term =
    R [Term]
  | P Term Term