oper overloading: first implemenatation using records

src/GF/Source/GrammarToSource.hs

@@ -94,6 +94,10 @@ trAnyDef (i,info) = let i' = tri i in case info of
     May b  -> P.ParDefIndir i' $ tri b
     _      -> P.ParDefAbs i']]
 
+  ResOverload tysts -> 
+    [P.DefOper [P.DDef [mkName i'] (
+      P.ERecord [P.LDFull [i'] (trt ty) (trt fu) | (ty,fu) <- tysts])]]
+
   CncCat (Yes ty) Nope _ -> 
     [P.DefLincat [P.PrintDef [mkName i'] (trt ty)]] 
   CncCat pty ptr ppr ->