examples/dialogue/AgendaProlog.gf


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

--# -path=.:prelude

concrete AgendaProlog of Agenda = 
  DialogueProlog, WeekdayProlog ** open ResProlog, Prelude in {

  lin
    Day       = ss "day" ;
    Meeting   = ss "meeting" ;
    Add       = ss "add" ;
    Remove    = ss "remove" ;
    Interrupt = ss "interrupt" ;
   
    day = apps "weekday" ;

}