msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

ResFin workaround; type annot for ghc 6.8.1

Browse Source
This commit is contained in:
aarne
2007-11-09 15:51:12 +00:00
parent 780148b429
commit bb5776a405
2 changed files with 9 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
resource-1.0/Makefile
View File

@@ -165,10 +165,10 @@ gf3:
$(GFNew) finnish/Finnish.gf $(GFNew) finnish/Finnish.gf
$(GFNew) french/French.gf $(GFNew) french/French.gf
$(GFNew) german/German.gf $(GFNew) german/German.gf
$(GFNew) italian/Italian.gf $(GFNew) italian/Italian.gf $(RTSS)
$(GFNew) norwegian/Norwegian.gf $(GFNew) norwegian/Norwegian.gf
$(GFNew) russian/Russian.gf $(GFNew) russian/Russian.gf
$(GFNew) spanish/Spanish.gf $(GFNew) spanish/Spanish.gf $(RTSS)
$(GFNew) swedish/Swedish.gf $(GFNew) swedish/Swedish.gf
$(GFNew) common/ConstructX.gf $(GFNew) common/ConstructX.gf
cp -p */*.gfo ../alltenses cp -p */*.gfo ../alltenses

5
resource-1.0/finnish/ResFin.gf
View File

@@ -56,7 +56,10 @@ param
NPForm = NPCase Case | NPAcc ; NPForm = NPCase Case | NPAcc ;
oper oper
npform2case : Number -> NPForm -> Case = \n,f -> case <f,n> of { npform2case : Number -> NPForm -> Case = \n,f ->
-- type signature: workaround for gfc bug 9/11/2007
case <<f,n> : NPForm * Number> of {
<NPCase c,_> => c ; <NPCase c,_> => c ;
<NPAcc,Sg> => Gen ;-- appCompl does the job <NPAcc,Sg> => Gen ;-- appCompl does the job
<NPAcc,Pl> => Nom <NPAcc,Pl> => Nom