diff options
| author | bjorn <bjorn@bringert.net> | 2008-10-10 11:55:12 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-10-10 11:55:12 +0000 |
| commit | 88798b2a23c90ce92ec6062ec1ca43f45ee8fe18 (patch) | |
| tree | 6751732562b25ce8ea9a7269ec6951e321e0764a /src/GF/Compile/Export.hs | |
| parent | 18aa48941c7473fe7f7dcbd08adc87992323af93 (diff) | |
Added option to treat some categories as lexical when generating Haskell data types.
Diffstat (limited to 'src/GF/Compile/Export.hs')
| -rw-r--r-- | src/GF/Compile/Export.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/GF/Compile/Export.hs b/src/GF/Compile/Export.hs index 8fb4cbed8..f4e5b2884 100644 --- a/src/GF/Compile/Export.hs +++ b/src/GF/Compile/Export.hs @@ -35,8 +35,7 @@ exportPGF opts fmt pgf = FmtPGF -> multi "pgf" printPGF FmtPGFPretty -> multi "txt" prPGFPretty FmtJavaScript -> multi "js" pgf2js - FmtHaskell -> multi "hs" (grammar2haskell hsPrefix name) - FmtHaskell_GADT -> multi "hs" (grammar2haskellGADT hsPrefix name) + FmtHaskell -> multi "hs" (grammar2haskell opts name) FmtProlog -> multi "pl" grammar2prolog FmtProlog_Abs -> multi "pl" grammar2prolog_abs FmtBNF -> single "bnf" bnfPrinter @@ -54,7 +53,6 @@ exportPGF opts fmt pgf = FmtFA -> single "dot" slfGraphvizPrinter where name = fromMaybe (prCId (absname pgf)) (moduleFlag optName opts) - hsPrefix = flag optHaskellPrefix opts multi :: String -> (PGF -> String) -> [(FilePath,String)] multi ext pr = [(name <.> ext, pr pgf)] |