GFCCtoJS in Devel

1 files changed, 7 insertions, 0 deletions

diff --git a/src/GF/Devel/GFC.hs b/src/GF/Devel/GFC.hs
index 0d8df98a1..206d54206 100644
--- a/src/GF/Devel/GFC.hs
+++ b/src/GF/Devel/GFC.hs
@@ -2,6 +2,7 @@ module Main where
 
 import GF.Devel.Compile
 import GF.Devel.GrammarToGFCC
+import GF.Devel.GFCCtoJS
 import GF.GFCC.OptimizeGFCC
 import GF.GFCC.CheckGFCC
 import GF.GFCC.DataGFCC
@@ -24,6 +25,12 @@ main = do
       let target = abs ++ ".gfcc"
       writeFile target (printGFCC gc)
       putStrLn $ "wrote file " ++ target
+      if oElem (iOpt "js") opts 
+        then do
+          let js = abs ++ ".js"
+          writeFile js (gfcc2js gc)
+          putStrLn $ "wrote file " ++ js
+        else return ()
     _ -> do
       mapM_ (batchCompile opts) (map return fs)
       putStrLn "Done."