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) french/French.gf
$(GFNew) german/German.gf
$(GFNew) italian/Italian.gf
$(GFNew) italian/Italian.gf $(RTSS)
$(GFNew) norwegian/Norwegian.gf
$(GFNew) russian/Russian.gf
$(GFNew) spanish/Spanish.gf
$(GFNew) spanish/Spanish.gf $(RTSS)
$(GFNew) swedish/Swedish.gf
$(GFNew) common/ConstructX.gf
cp -p */*.gfo ../alltenses

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

@@ -56,7 +56,10 @@ param
NPForm = NPCase Case | NPAcc ;
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 ;
<NPAcc,Sg> => Gen ;-- appCompl does the job
<NPAcc,Pl> => Nom