diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-02-15 13:03:09 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-02-15 13:03:09 -0500 |
| commit | 4f0987ddef3dc105c3883aa9c1c69c29fbe86a8a (patch) | |
| tree | 30c7775fe1755a17af3ea46d0a02ebf077c822ac /src/mono_reduce.sml | |
| parent | f083e82c95ac4a9d3a22e032f81b6dc88a88f499 (diff) | |
Parameterized RPC query
Diffstat (limited to 'src/mono_reduce.sml')
| -rw-r--r-- | src/mono_reduce.sml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/mono_reduce.sml b/src/mono_reduce.sml index 2d0412fd..1f640004 100644 --- a/src/mono_reduce.sml +++ b/src/mono_reduce.sml @@ -346,7 +346,7 @@ fun reduce file = | ESignalBind (e1, e2) => summarize d e1 @ summarize d e2 | ESignalSource e => summarize d e - | EServerCall (_, es, ek, _) => List.concat (map (summarize d) es) @ summarize d ek @ [Unsure] + | EServerCall (e, ek, _) => summarize d e @ summarize d ek @ [Unsure] in (*Print.prefaces "Summarize" [("e", MonoPrint.p_exp MonoEnv.empty (e, ErrorMsg.dummySpan)), |