GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-21 17:12:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

fix a typo. It is option "-cat" not "-type"

Browse Source
This commit is contained in:
krasimir
2008-10-22 09:36:50 +00:00
parent 7a2ef0bb09
commit bb007215ab
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/GFI.hs
View File

@@ -232,7 +232,12 @@ wordCompletion gfenv line0 prefix0 p =
pgf = multigrammar cmdEnv pgf = multigrammar cmdEnv
cmdEnv = commandenv gfenv cmdEnv = commandenv gfenv
optLang opts = valCIdOpts "lang" (head (languages pgf)) opts optLang opts = valCIdOpts "lang" (head (languages pgf)) opts
optType opts = DTyp [] (mkCId (valStrOpts "type" (prCId $ lookStartCat pgf) opts)) [] optType opts =
let str = valStrOpts "cat" (prCId $ lookStartCat pgf) opts
in case readType str of
Just ty -> ty
Nothing -> error ("Can't parse '"++str++"' as type")
ret c [x] = return [x++[c]] ret c [x] = return [x++[c]]
ret _ xs = return xs ret _ xs = return xs