diff options
Diffstat (limited to 'examples/dialogue/ResProlog.gf')
| -rw-r--r-- | examples/dialogue/ResProlog.gf | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/examples/dialogue/ResProlog.gf b/examples/dialogue/ResProlog.gf index 5ecb1f3c0..8b6dadef6 100644 --- a/examples/dialogue/ResProlog.gf +++ b/examples/dialogue/ResProlog.gf @@ -7,6 +7,9 @@ resource ResProlog = open Prelude in { apps : Str -> SS -> SS = \f,x -> ss (app1 f x.s) ; + op1 : (s,x : Str) -> {s,x : Str} = \s,x -> {s = s ; x = x} ; + op2 : (s,x,y : Str) -> {s,x,y : Str} = \s,x,y -> {s = s ; x = x ; y = y} ; + request : Str -> Str = app1 "request" ; answer : Str -> Str = app1 "answer" ; |