diff options
| author | bjorn <bjorn@bringert.net> | 2008-06-17 12:29:11 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-06-17 12:29:11 +0000 |
| commit | d13b32ea48d255c71670321c9b8d0d611afe0a17 (patch) | |
| tree | 0e4a98d507eb02f7c4e83815f66667d273d36a16 /src-3.0/GF/Command | |
| parent | 2cf7a7d07eaa394c56ca020f7383ba747d9374a3 (diff) | |
Refactor grammar export code.
Diffstat (limited to 'src-3.0/GF/Command')
| -rw-r--r-- | src-3.0/GF/Command/Commands.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src-3.0/GF/Command/Commands.hs b/src-3.0/GF/Command/Commands.hs index 803fb6017..f442cfa22 100644 --- a/src-3.0/GF/Command/Commands.hs +++ b/src-3.0/GF/Command/Commands.hs @@ -441,7 +441,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 noOptions (read v) pgf (prCId (absname pgf)) + v -> concatMap snd $ exportPGF noOptions (read v) pgf morphos opts s = [lookupMorpho (buildMorpho pgf (mkCId la)) s | la <- optLangs opts] |