debugging gfcc bug; resulted in some type annotations to work around problems

This commit is contained in:
aarne
2007-11-09 14:02:11 +00:00
parent 3532b335d4
commit 780148b429
5 changed files with 22 additions and 8 deletions
+1 -1
View File
@@ -11,7 +11,7 @@ instance DiffNor of DiffScand = open CommonScand, Prelude in {
neutrum = Neutr ;
gennum : Gender -> Number -> GenNum = \g,n ->
case <g,n> of {
case <<g,n> : Gender * Number> of {
<Utr _,Sg> => SgUtr ;
<Neutr,Sg> => SgNeutr ;
_ => Plg