From e36d70d483be19ed3c72a91c8440084d276e1244 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Wed, 15 Oct 2008 08:38:34 +0000
Subject: threat category _Var as a literal category

---
 src/PGF/Data.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/PGF/Data.hs')

diff --git a/src/PGF/Data.hs b/src/PGF/Data.hs
index f50a49c31..644e33750 100644
--- a/src/PGF/Data.hs
+++ b/src/PGF/Data.hs
@@ -122,7 +122,7 @@ type Profile = [Int]
 data Production
   = FApply  {-# UNPACK #-} !FunId [FCat]
   | FCoerce {-# UNPACK #-} !FCat
-  | FLit    Literal String
+  | FConst  Tree String
   deriving (Eq,Ord,Show)
 data FFun  = FFun CId [Profile] {-# UNPACK #-} !(UArray FIndex SeqId) deriving (Eq,Ord,Show)
 type FSeq  = Array FPointPos FSymbol
-- 
cgit v1.2.3