diff options
| author | krasimir <krasimir@chalmers.se> | 2009-05-18 15:53:36 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2009-05-18 15:53:36 +0000 |
| commit | b6ce113041d7dc26021591f050bc11a358091594 (patch) | |
| tree | f9dbf171adf886917c618d24d9b82a030f5675a9 /src/GF | |
| parent | 5f986f599216d3c6aa86515ae1949612414ff9c6 (diff) | |
removed some debug traces
Diffstat (limited to 'src/GF')
| -rw-r--r-- | src/GF/Compile/GeneratePMCFG.hs | 4 |
1 files 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 |