diff options
| author | bjorn <bjorn@bringert.net> | 2008-09-03 15:42:11 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-09-03 15:42:11 +0000 |
| commit | 207ddc4cb687159d714e14ad0e90444b393c268a (patch) | |
| tree | 4ee2d35da28c1b38deddf60df007175c7252d7f0 /src/GF/Compile/Export.hs | |
| parent | 74826158cbe6ad87c0cdfaef7814820c547a3306 (diff) | |
Added --haskell-prefix option for changing the constructor prefix in generated Haskell modules.
Diffstat (limited to 'src/GF/Compile/Export.hs')
| -rw-r--r-- | src/GF/Compile/Export.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/GF/Compile/Export.hs b/src/GF/Compile/Export.hs index bd4f88df4..2aac9ad13 100644 --- a/src/GF/Compile/Export.hs +++ b/src/GF/Compile/Export.hs @@ -31,8 +31,8 @@ exportPGF opts fmt pgf = case fmt of FmtPGF -> multi "pgf" printPGF FmtJavaScript -> multi "js" pgf2js - FmtHaskell -> multi "hs" (grammar2haskell name) - FmtHaskell_GADT -> multi "hs" (grammar2haskellGADT name) + FmtHaskell -> multi "hs" (grammar2haskell hsPrefix name) + FmtHaskell_GADT -> multi "hs" (grammar2haskellGADT hsPrefix name) FmtProlog -> multi "pl" grammar2prolog FmtProlog_Abs -> multi "pl" grammar2prolog_abs FmtBNF -> single "bnf" bnfPrinter @@ -47,6 +47,7 @@ exportPGF opts fmt pgf = where name = fromMaybe (prCId (absname pgf)) (moduleFlag optName opts) sisr = flag optSISR opts + hsPrefix = flag optHaskellPrefix opts multi :: String -> (PGF -> String) -> [(FilePath,String)] multi ext pr = [(name <.> ext, pr pgf)] |