From 992a7ffb381190ffa67f59f33d0dfadf41f84e78 Mon Sep 17 00:00:00 2001 From: krasimir Date: Fri, 18 Jun 2010 12:55:58 +0000 Subject: Yay!! Direct generation of PMCFG from GF grammar --- src/compiler/GF/Grammar/Printer.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/compiler/GF/Grammar/Printer.hs') diff --git a/src/compiler/GF/Grammar/Printer.hs b/src/compiler/GF/Grammar/Printer.hs index 69c9e8860..3f97dd390 100644 --- a/src/compiler/GF/Grammar/Printer.hs +++ b/src/compiler/GF/Grammar/Printer.hs @@ -171,7 +171,7 @@ ppTerm q d (Q id) = ppQIdent q id ppTerm q d (QC id) = ppQIdent q id ppTerm q d (Sort id) = ppIdent id ppTerm q d (K s) = str s -ppTerm q d (EInt n) = integer n +ppTerm q d (EInt n) = int n ppTerm q d (EFloat f) = double f ppTerm q d (Meta _) = char '?' ppTerm q d (Empty) = text "[]" @@ -204,7 +204,7 @@ ppPatt q d (PMacro id) = char '#' <> ppIdent id ppPatt q d (PM id) = char '#' <> ppQIdent q id ppPatt q d PW = char '_' ppPatt q d (PV id) = ppIdent id -ppPatt q d (PInt n) = integer n +ppPatt q d (PInt n) = int n ppPatt q d (PFloat f) = double f ppPatt q d (PString s) = str s ppPatt q d (PR xs) = braces (hsep (punctuate semi [ppLabel l <+> equals <+> ppPatt q 0 e | (l,e) <- xs])) -- cgit v1.2.3