diff options
| author | krasimir <krasimir@chalmers.se> | 2017-01-25 20:30:54 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2017-01-25 20:30:54 +0000 |
| commit | db0f8b0dced9a827c24842e5eeda7fbd64ef115e (patch) | |
| tree | 4e17ba95c6d4cede185ecfd8d66b00b289627410 /src/compiler | |
| parent | 6de9636ff26aef7ed1cc8b3bc5d93f27a91b861d (diff) | |
improve the documentation for PGF2
Diffstat (limited to 'src/compiler')
| -rw-r--r-- | src/compiler/GF/Command/Commands2.hs | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/compiler/GF/Command/Commands2.hs b/src/compiler/GF/Command/Commands2.hs index 505c22286..4e68c05ff 100644 --- a/src/compiler/GF/Command/Commands2.hs +++ b/src/compiler/GF/Command/Commands2.hs @@ -844,7 +844,7 @@ pgfCommands = Map.fromList [ ts = [hsExpr t|Right ts<-rs,(t,p)<-takeOptNum opts ts] msgs = concatMap (either err ok) rs err msg = ["Parse failed: "++msg] - ok = map (C.showExpr . fst).takeOptNum opts + ok = map (C.showExpr [] . fst).takeOptNum opts cLins env@(pgf,cncs) opts ts = [l|t<-ts,l<-[abs++": "++show t|treebank]++[l|cnc<-cncs,l<-lin cnc t]] @@ -975,7 +975,11 @@ pgfCommands = Map.fromList [ optFile opts = valStrOpts "file" "_gftmp" opts -} - optCat pgf opts = valStrOpts "cat" (C.startCat pgf) opts + optCat pgf opts = + case listFlags "cat" opts of + v:_ -> C.DTyp [] (valueString v) [] + _ -> C.startCat pgf + {- optType pgf opts = let str = valStrOpts "cat" (H.showCId $ H.lookStartCat pgf) opts |