diff options
| author | bjorn <bjorn@bringert.net> | 2008-06-02 15:32:01 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-06-02 15:32:01 +0000 |
| commit | 5073ac4e7f4c24aa412ed3a3c3d719532df9f637 (patch) | |
| tree | e9e60a0b58800dcc71aee9df2361852105c25574 /src-3.0/GF/Compile/Export.hs | |
| parent | 20ea9ea5ec7c65ab01bff47d78f55e06b85fe79d (diff) | |
Honor the --name flag when generating output files. Set module name in generated Haskell modules correctly.
Diffstat (limited to 'src-3.0/GF/Compile/Export.hs')
| -rw-r--r-- | src-3.0/GF/Compile/Export.hs | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/src-3.0/GF/Compile/Export.hs b/src-3.0/GF/Compile/Export.hs index ab5dcb393..d6780147e 100644 --- a/src-3.0/GF/Compile/Export.hs +++ b/src-3.0/GF/Compile/Export.hs @@ -10,13 +10,16 @@ import GF.Text.UTF8 -- top-level access to code generation -prPGF :: OutputFormat -> PGF -> String -prPGF fmt gr = case fmt of +prPGF :: OutputFormat + -> PGF + -> String -- ^ Output name, for example used for generated Haskell + -- module name. + -> String +prPGF fmt gr name = case fmt of FmtPGF -> printPGF gr FmtJavaScript -> pgf2js gr - FmtHaskell -> grammar2haskell gr - FmtHaskellGADT -> grammar2haskellGADT gr + FmtHaskell -> grammar2haskell gr name + FmtHaskellGADT -> grammar2haskellGADT gr name printPGF :: PGF -> String printPGF = encodeUTF8 . printTree . fromPGF - |