From 5c7c010f80533fd0909893c878b500ffb00f46bb Mon Sep 17 00:00:00 2001
From: bjorn <bjorn@bringert.net>
Date: Mon, 16 Jun 2008 16:12:17 +0000
Subject: Added --sisr option for including SISR tags in generated SRGs.

---
 src-3.0/GFC.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src-3.0/GFC.hs')

diff --git a/src-3.0/GFC.hs b/src-3.0/GFC.hs
index 73fb6f9f9..a3a0db44d 100644
--- a/src-3.0/GFC.hs
+++ b/src-3.0/GFC.hs
@@ -32,7 +32,7 @@ writeOutput :: Options -> OutputFormat-> PGF -> IOE ()
 writeOutput opts fmt pgf =
     do let name = fromMaybe (prCId (absname pgf)) (moduleFlag optName opts)
            path = outputFilePath opts fmt name
-           s = prPGF fmt pgf name
+           s = prPGF opts fmt pgf name
        writeOutputFile path s
 
 outputFilePath :: Options -> OutputFormat -> String -> FilePath
-- 
cgit v1.2.3