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

extend behaviour for interface and incomplete

Browse Source
This commit is contained in:
aarne
2007-12-09 10:52:19 +00:00
parent c19e8c31b7
commit 6093c2d3e4
5 changed files with 15 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Devel/Compile/SourceToGF.hs
View File

@@ -504,6 +504,7 @@ transSort x = case x of
transPatt :: Patt -> Err G.Patt
transPatt x = case x of
PW -> return wildPatt
PV (PIdent (_,"_")) -> return wildPatt
PV id -> liftM G.PV $ transIdent id
PC id patts -> liftM2 G.PC (transIdent id) (mapM transPatt patts)
PCon id -> liftM2 G.PC (transIdent id) (return [])
@@ -529,6 +530,7 @@ transPatt x = case x of
transBind :: Bind -> Err Ident
transBind x = case x of
BPIdent (PIdent (_,"_")) -> return identW
BPIdent id -> transIdent id
BWild -> return identW