forked from GitHub/gf-core
fixing a type error in QuestionBul.AdvIAdv
This commit is contained in:
@@ -59,7 +59,7 @@ concrete QuestionBul of Question = CatBul ** open ResBul, Prelude in {
|
|||||||
nonEmpty = num.nonEmpty
|
nonEmpty = num.nonEmpty
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
AdvIAdv i a = {s = i.s ++ a.s} ;
|
AdvIAdv i a = {s = \\q => i.s ! q ++ a.s} ;
|
||||||
|
|
||||||
CompIP ip = {s = ip.s ! RSubj} ;
|
CompIP ip = {s = ip.s ! RSubj} ;
|
||||||
}
|
}
|
||||||
|
|||||||
Reference in New Issue
Block a user