Mercurial > urweb
comparison src/mono_shake.sml @ 1229:a2cd6664f57f
sendOwnIds policies
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Sun, 11 Apr 2010 17:55:37 -0400 |
parents | 62af4cacd191 |
children | e8d68fd8ed4b |
comparison
equal
deleted
inserted
replaced
1228:7dfa67560916 | 1229:a2cd6664f57f |
---|---|
63 val e1 = case pol of | 63 val e1 = case pol of |
64 PolClient e1 => e1 | 64 PolClient e1 => e1 |
65 | PolInsert e1 => e1 | 65 | PolInsert e1 => e1 |
66 | PolDelete e1 => e1 | 66 | PolDelete e1 => e1 |
67 | PolUpdate e1 => e1 | 67 | PolUpdate e1 => e1 |
68 | PolSequence e1 => e1 | |
68 in | 69 in |
69 usedVars st e1 | 70 usedVars st e1 |
70 end | 71 end |
71 | (_, st) => st) (IS.empty, IS.empty) file | 72 | (_, st) => st) (IS.empty, IS.empty) file |
72 | 73 |