From 88798b2a23c90ce92ec6062ec1ca43f45ee8fe18 Mon Sep 17 00:00:00 2001 From: bjorn Date: Fri, 10 Oct 2008 11:55:12 +0000 Subject: Added option to treat some categories as lexical when generating Haskell data types. --- src/GF/Compile/Export.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'src/GF/Compile/Export.hs') 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)] -- cgit v1.2.3