From 5073ac4e7f4c24aa412ed3a3c3d719532df9f637 Mon Sep 17 00:00:00 2001 From: bjorn Date: Mon, 2 Jun 2008 15:32:01 +0000 Subject: Honor the --name flag when generating output files. Set module name in generated Haskell modules correctly. --- src-3.0/GF/Compile/Export.hs | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) (limited to 'src-3.0/GF/Compile/Export.hs') 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 - -- cgit v1.2.3