From 992a7ffb381190ffa67f59f33d0dfadf41f84e78 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Fri, 18 Jun 2010 12:55:58 +0000
Subject: Yay!! Direct generation of PMCFG from GF grammar

---
 src/runtime/haskell/PGF/Macros.hs | 9 ---------
 1 file changed, 9 deletions(-)

(limited to 'src/runtime/haskell/PGF/Macros.hs')

diff --git a/src/runtime/haskell/PGF/Macros.hs b/src/runtime/haskell/PGF/Macros.hs
index 1bee56b9b..f6116ba60 100644
--- a/src/runtime/haskell/PGF/Macros.hs
+++ b/src/runtime/haskell/PGF/Macros.hs
@@ -117,15 +117,6 @@ contextLength ty = case ty of
 showPrintName :: PGF -> Language -> CId -> String
 showPrintName pgf lang id = lookMap (showCId id) id $ printnames $ lookMap (error "no lang") lang $ concretes pgf
 
-term0 :: CId -> Term
-term0 = TM . showCId
-
-tm0 :: Term
-tm0 = TM "?"
-
-kks :: String -> Term
-kks = K . KS
-
 -- lookup with default value
 lookMap :: (Show i, Ord i) => a -> i -> Map.Map i a -> a 
 lookMap d c m = Map.findWithDefault d c m
-- 
cgit v1.2.3