printing grammarReference.js with gfc -jsref

1 files changed, 11 insertions, 10 deletions

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"