diff options
| author | bjorn <bjorn@bringert.net> | 2008-06-16 16:12:17 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-06-16 16:12:17 +0000 |
| commit | 5c7c010f80533fd0909893c878b500ffb00f46bb (patch) | |
| tree | 4e89cf7e1d731453b1afb17102ef5ec3abbc0797 /src-3.0/GF/Command/Commands.hs | |
| parent | 10d58953694a3d66067eaf24deaaab1afd922b80 (diff) | |
Added --sisr option for including SISR tags in generated SRGs.
Diffstat (limited to 'src-3.0/GF/Command/Commands.hs')
| -rw-r--r-- | src-3.0/GF/Command/Commands.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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] |