diff options
| author | bjorn <bjorn@bringert.net> | 2008-10-20 11:35:05 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-10-20 11:35:05 +0000 |
| commit | a26290659d2d7799f920d0aae64383e17004abdb (patch) | |
| tree | fdb009690775fe0fd92936a406af315e62005fc3 /src/GFI.hs | |
| parent | 3d92897a944fef8f201b3ced837156b50c415106 (diff) | |
Replace Category with Type in the PGF API. Added readLanguage and showLanguage.
Diffstat (limited to 'src/GFI.hs')
| -rw-r--r-- | src/GFI.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GFI.hs b/src/GFI.hs index 59c792eb5..ed966699a 100644 --- a/src/GFI.hs +++ b/src/GFI.hs @@ -232,7 +232,7 @@ wordCompletion gfenv line0 prefix0 p = pgf = multigrammar cmdEnv cmdEnv = commandenv gfenv optLang opts = valCIdOpts "lang" (head (languages pgf)) opts - optType opts = DTyp [] (mkCId (valStrOpts "type" (lookStartCat pgf) opts)) [] + optType opts = DTyp [] (mkCId (valStrOpts "type" (prCId $ lookStartCat pgf) opts)) [] ret c [x] = return [x++[c]] ret _ xs = return xs |