From eb7b0286016714128aae742b4cedccc3dc30a9a0 Mon Sep 17 00:00:00 2001 From: aarne Date: Sat, 10 Nov 2007 10:23:35 +0000 Subject: printing grammarReference.js with gfc -jsref --- src/GF/Devel/GFC.hs | 21 +++++++++++---------- 1 file changed, 11 insertions(+), 10 deletions(-) (limited to 'src/GF/Devel/GFC.hs') diff --git a/src/GF/Devel/GFC.hs b/src/GF/Devel/GFC.hs index 1e66d29a5..917a469e9 100644 --- a/src/GF/Devel/GFC.hs +++ b/src/GF/Devel/GFC.hs @@ -50,20 +50,21 @@ file2gfcc f = ---- TODO: nicer and richer print options -alsoPrint opts abs gr (opt,name) = - if oElem (iOpt opt) opts - then do - let outfile = name - let output = prGFCC opt gr - writeFile outfile output - putStrLn $ "wrote file " ++ outfile - else return () +alsoPrint opts abs gr (opt,name) = do + if oElem (iOpt opt) opts + then do + let outfile = name + let output = prGFCC opt gr + writeFile outfile output + putStrLn $ "wrote file " ++ outfile + else return () printOptions = [ ("haskell","GSyntax.hs"), ("haskell_gadt","GSyntax.hs"), - ("js","grammar.js") + ("js","grammar.js"), + ("jsref","grammarReference.js") ] usageMsg = - "usage: gfc (-h | --make (-noopt) (-js | -haskell | -haskell_gadt)) (-src) FILES" + "usage: gfc (-h | --make (-noopt) (-js | -jsref | -haskell | -haskell_gadt)) (-src) FILES" -- cgit v1.2.3