From c038db9d7cc39de613ece4edcfbc5820d53317dc Mon Sep 17 00:00:00 2001
From: bringert <bringert@cs.chalmers.se>
Date: Fri, 8 Dec 2006 19:53:06 +0000
Subject: [PATCH] JavaScript generation: compile all concrete syntaxes, not
 just the first.

---
 src/GF/Canon/CanonToJS.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/GF/Canon/CanonToJS.hs b/src/GF/Canon/CanonToJS.hs
index 18071ce80..8260557a6 100644
--- a/src/GF/Canon/CanonToJS.hs
+++ b/src/GF/Canon/CanonToJS.hs
@@ -11,12 +11,12 @@ prCanon2js :: CanonGrammar -> String
 prCanon2js gr = gfcc2js $ mkCanon2gfcc gr
 
 gfcc2js :: C.Grammar -> String
-gfcc2js (C.Grm _ _ cs) = JS.printTree (concrete2js (head cs)) -- FIXME
+gfcc2js (C.Grm _ _ cs) = JS.printTree $ JS.Program $ concatMap concrete2js cs
 
-concrete2js :: C.Concrete -> JS.Program
+concrete2js :: C.Concrete -> [JS.Element]
 concrete2js (C.Cnc (C.CId c) ds) = 
-    JS.Program ([JS.ElStmt $ JS.SDeclOrExpr $ JS.Decl [JS.DInit l (new "Linearizer" [])]] 
-                ++ concatMap (cncdef2js l) ds)
+    [JS.ElStmt $ JS.SDeclOrExpr $ JS.Decl [JS.DInit l (new "Linearizer" [])]] 
+    ++ concatMap (cncdef2js l) ds
   where l = JS.Ident c
 
 cncdef2js :: JS.Ident -> C.CncDef -> [JS.Element]