diff options
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 - |