diff options
Diffstat (limited to 'src/compiler/GF/Compile/ConcreteToHaskell.hs')
| -rw-r--r-- | src/compiler/GF/Compile/ConcreteToHaskell.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/compiler/GF/Compile/ConcreteToHaskell.hs b/src/compiler/GF/Compile/ConcreteToHaskell.hs index ad4775697..fc5c689fc 100644 --- a/src/compiler/GF/Compile/ConcreteToHaskell.hs +++ b/src/compiler/GF/Compile/ConcreteToHaskell.hs @@ -18,6 +18,8 @@ import GF.Infra.Ident(Ident,identS,prefixIdent) --,moduleNameS import GF.Infra.Option import GF.Compile.Compute.ConcreteNew(normalForm,resourceValues) import GF.Haskell +--import GF.Grammar.Canonical +--import GF.Compile.ConcreteToCanonical import Debug.Trace -- | Generate Haskell code for the all concrete syntaxes associated with @@ -28,6 +30,9 @@ concretes2haskell opts absname gr = cnc<-allConcretes gr absname, let cncname = render cnc ++ ".hs" :: FilePath Ok cncmod = lookupModule gr cnc +{- (_,cnc)<-concretes2canonical opt absname gr, + let ModId name = concName cnc + cncname = name ++ ".hs" :: FilePath--} ] -- | Generate Haskell code for the given concrete module. |