diff options
| author | aarne <unknown> | 2005-02-04 19:17:57 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2005-02-04 19:17:57 +0000 |
| commit | bc05653e825e082b70eebf2f420eb5a97610f56c (patch) | |
| tree | 66ddf9b72422f08f09f1b5a86a1bcd838d92baee /src/GF/Source/GrammarToSource.hs | |
| parent | b8b5139a8a8f8b0451061bacefc033b0bc768886 (diff) | |
resources and new instantiation syntax
Diffstat (limited to 'src/GF/Source/GrammarToSource.hs')
| -rw-r--r-- | src/GF/Source/GrammarToSource.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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']] |