From a26290659d2d7799f920d0aae64383e17004abdb Mon Sep 17 00:00:00 2001
From: bjorn <bjorn@bringert.net>
Date: Mon, 20 Oct 2008 11:35:05 +0000
Subject: Replace Category with Type in the PGF API. Added readLanguage and
 showLanguage.

---
 src/GFI.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/GFI.hs')

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
-- 
cgit v1.2.3