diff options
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] |