From 5073ac4e7f4c24aa412ed3a3c3d719532df9f637 Mon Sep 17 00:00:00 2001
From: bjorn <bjorn@bringert.net>
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/Command/Commands.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src-3.0/GF/Command')

diff --git a/src-3.0/GF/Command/Commands.hs b/src-3.0/GF/Command/Commands.hs
index 8761234cd..281c6f1cc 100644
--- a/src-3.0/GF/Command/Commands.hs
+++ b/src-3.0/GF/Command/Commands.hs
@@ -153,5 +153,5 @@ allCommands pgf = Map.fromAscList [
 
    prGrammar opts = case valIdOpts "printer" "" opts of
      "cats" -> unwords $ categories pgf
-     v -> prPGF (read v) pgf 
+     v -> prPGF (read v) pgf (prCId (absname pgf))
 
-- 
cgit v1.2.3