From 5c7c010f80533fd0909893c878b500ffb00f46bb Mon Sep 17 00:00:00 2001 From: bjorn Date: Mon, 16 Jun 2008 16:12:17 +0000 Subject: Added --sisr option for including SISR tags in generated SRGs. --- src-3.0/GF/Command/Commands.hs | 3 ++- 1 file changed, 2 insertions(+), 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 f586125b2..39bcc99e7 100644 --- a/src-3.0/GF/Command/Commands.hs +++ b/src-3.0/GF/Command/Commands.hs @@ -17,6 +17,7 @@ import PGF.Data ---- import PGF.Morphology import PGF.Quiz import GF.Compile.Export +import GF.Infra.Option (noOptions) import GF.Infra.UseIO import GF.Data.ErrM ---- import PGF.ExprSyntax (readExp) @@ -446,7 +447,7 @@ allCommands pgf = Map.fromList [ unlines $ [unwords (la:":": map prCId cs) | la <- optLangs opts, let cs = missingLins pgf (mkCId la)] _ -> case valIdOpts "printer" "pgf" opts of - v -> prPGF (read v) pgf (prCId (absname pgf)) + v -> prPGF noOptions (read v) pgf (prCId (absname pgf)) morphos opts s = [lookupMorpho (buildMorpho pgf (mkCId la)) s | la <- optLangs opts] -- cgit v1.2.3