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