Mercurial > urweb
comparison src/mono_reduce.sml @ 297:59dc042629b9
pquery working with all four types of columns
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Sun, 07 Sep 2008 13:29:01 -0400 |
parents | df00701f2323 |
children | 52d4c60518d4 |
comparison
equal
deleted
inserted
replaced
296:5dc11235129d | 297:59dc042629b9 |
---|---|
43 | 43 |
44 | EPrim _ => false | 44 | EPrim _ => false |
45 | ERel _ => false | 45 | ERel _ => false |
46 | ENamed _ => false | 46 | ENamed _ => false |
47 | ECon (_, _, eo) => (case eo of NONE => false | SOME e => impure e) | 47 | ECon (_, _, eo) => (case eo of NONE => false | SOME e => impure e) |
48 | ENone _ => false | |
48 | ESome (_, e) => impure e | 49 | ESome (_, e) => impure e |
49 | EFfi _ => false | 50 | EFfi _ => false |
50 | EFfiApp _ => false | 51 | EFfiApp _ => false |
51 | EApp ((EFfi _, _), _) => false | 52 | EApp ((EFfi _, _), _) => false |
52 | EApp _ => true | 53 | EApp _ => true |