From 0606de738e0d934b45f39f1bbe34ed1defde478a Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Tue, 21 Oct 2008 14:30:36 +0000
Subject: efficient and nicer implementation for literal categories

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

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

diff --git a/src/PGF/Data.hs b/src/PGF/Data.hs
index 8ee95c579..31b267a17 100644
--- a/src/PGF/Data.hs
+++ b/src/PGF/Data.hs
@@ -70,6 +70,7 @@ type FIndex    = Int
 type FPointPos = Int
 data FSymbol
   = FSymCat {-# UNPACK #-} !Int {-# UNPACK #-} !FIndex
+  | FSymLit {-# UNPACK #-} !Int {-# UNPACK #-} !FIndex
   | FSymTok Tokn
   deriving (Eq,Ord,Show)
 type Profile = [Int]
-- 
cgit v1.2.3