Mercurial > urweb
annotate demo/more/bid.urs @ 1248:cf9a636f9b15
Avoid state space explosion with ECase that just writes a constant in each case
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Sun, 18 Apr 2010 20:06:15 -0400 |
| parents | 6bcc1020d5cd |
| children |
| rev | line source |
|---|---|
| adamc@1030 | 1 con fields :: Type -> Type -> {Type} |
| adamc@1030 | 2 |
| adamc@1023 | 3 functor Make (M : Conference.INPUT) : Conference.OUTPUT where con paper = M.paper |
| adamc@1023 | 4 where con userId = M.userId |
| adamc@1022 | 5 where con paperId = M.paperId |
| adamc@1030 | 6 where con yourPaperTables = [Assignment |
| adamc@1030 | 7 = fields M.userId M.paperId] |