From bc05653e825e082b70eebf2f420eb5a97610f56c Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Fri, 4 Feb 2005 19:17:57 +0000
Subject: resources and new instantiation syntax

---
 src/GF/Source/GrammarToSource.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/GF/Source/GrammarToSource.hs')

diff --git a/src/GF/Source/GrammarToSource.hs b/src/GF/Source/GrammarToSource.hs
index 6be0f3060..346af7101 100644
--- a/src/GF/Source/GrammarToSource.hs
+++ b/src/GF/Source/GrammarToSource.hs
@@ -62,7 +62,7 @@ trQualOpen q = case q of
   OQInterface -> P.QOInterface
 
 
-mkOpens ds = if null ds then P.NoOpens else P.Opens ds
+mkOpens ds = if null ds then P.NoOpens else P.OpenIn ds
 mkTopDefs ds = ds
 
 trAnyDef :: (Ident,Info) -> [P.TopDef]
@@ -80,7 +80,7 @@ trAnyDef (i,info) = let i' = tri i in case info of
 
   ResOper pty ptr -> [P.DefOper [trDef i' pty ptr]]
   ResParam pp -> [P.DefPar [case pp of
-    Yes ps -> P.ParDef i' [P.ParConstr (tri c) (map trDecl co) | (c,co) <- ps]
+    Yes ps -> P.ParDefDir i' [P.ParConstr (tri c) (map trDecl co) | (c,co) <- ps]
     May b  -> P.ParDefIndir i' $ tri b
     _      -> P.ParDefAbs i']]
 
-- 
cgit v1.2.3