From 4fcf6bc0653ca9df5aa3ae241f6e023cc8f92cfb Mon Sep 17 00:00:00 2001 From: krasimir Date: Mon, 18 May 2009 15:53:36 +0000 Subject: [PATCH] removed some debug traces --- src/GF/Compile/GeneratePMCFG.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/GF/Compile/GeneratePMCFG.hs b/src/GF/Compile/GeneratePMCFG.hs index bb3215102..3da4d9763 100644 --- a/src/GF/Compile/GeneratePMCFG.hs +++ b/src/GF/Compile/GeneratePMCFG.hs @@ -33,7 +33,7 @@ import Debug.Trace -- main conversion function convertConcrete :: Abstr -> Concr -> ParserInfo -convertConcrete abs cnc = trace "convertConcrete" $ convert abs_defs conc cats +convertConcrete abs cnc = convert abs_defs conc cats where abs_defs = Map.assocs (funs abs) conc = Map.union (opers cnc) (lins cnc) -- "union big+small most efficient" cats = lincats cnc @@ -68,7 +68,7 @@ brk f (GrammarEnv last_id catSet seqSet funSet crcSet prodSet) = ys = foldr (zipWith Set.insert) (repeat Set.empty) xs convertRule :: TermMap -> GrammarEnv -> ProtoFRule -> GrammarEnv -convertRule cnc_defs grammarEnv (PFRule fun args res ctypes ctype term) = trace (show fun) $ +convertRule cnc_defs grammarEnv (PFRule fun args res ctypes ctype term) = let pres = protoFCat cnc_defs res ctype pargs = zipWith (protoFCat cnc_defs) args ctypes