From 972df6996f36e341dfae28db6226f819b02b1990 Mon Sep 17 00:00:00 2001
From: bjorn <bjorn@bringert.net>
Date: Thu, 29 May 2008 08:01:55 +0000
Subject: [PATCH] Copy startcat flag to .gfo file.

---
 src-3.0/GF/Infra/Option.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src-3.0/GF/Infra/Option.hs b/src-3.0/GF/Infra/Option.hs
index a17613f7f..2d34ae441 100644
--- a/src-3.0/GF/Infra/Option.hs
+++ b/src-3.0/GF/Infra/Option.hs
@@ -157,7 +157,8 @@ parseModuleOptions args
 -- | Pretty-print the module options that are preserved in .gfo files.
 moduleOptionsGFO :: ModuleOptions -> [(String,String)]
 moduleOptionsGFO (ModuleOptions o) = 
-      maybe [] (\l -> [("language",l)]) (optSpeechLanguage mfs)
+         maybe [] (\x -> [("language",x)]) (optSpeechLanguage mfs)
+      ++ maybe [] (\x -> [("startcat",x)]) (optStartCat mfs)
   where mfs = o defaultModuleFlags