Permalink
Browse files

don't remember what res0 was for but it appears to be unused

  • Loading branch information...
1 parent 7d3d471 commit 36300b531c40e2ad49637b634eea9b826a977ba9 Jake Donham committed Jul 20, 2010
Showing with 0 additions and 6 deletions.
  1. +0 −3 src/generator/gen_aux.ml
  2. +0 −3 src/generator/gen_js_aux.ml
View
@@ -30,7 +30,6 @@ module G = Gen_common
let s_arg id = id ^ "'arg"
let s_res id = id ^ "'res"
-let s_res0 id = id ^ "'res0"
let xdr_p id = "xdr'" ^ id
@@ -111,7 +110,6 @@ let gen_mli name (typedefs, excs, funcs, mode) =
val $lid:xdr aid$ : Xdr.xdr_type_term
>> in
<:sig_item<
- $items (s_res0 id) res$ ;;
$items (s_arg id) arg$
$items (s_res id) orpc_res$
>> in
@@ -552,7 +550,6 @@ let gen_ml name (typedefs, excs, funcs, mode) =
let $lid:xdr aid$ = $gen_xdr qual_id [] [] [] arg$
>> in
<:str_item<
- $items (s_res0 id) res$ ;;
$items (s_arg id) arg$ ;;
$items (s_res id) orpc_res$ ;;
>> in
@@ -30,7 +30,6 @@ module G = Gen_common
let s_arg id = id ^ "'arg"
let s_res id = id ^ "'res"
-let s_res0 id = id ^ "'res0"
let long_to_ id = "orpc_js_aux_to_" ^ id
let long_of_ id = "orpc_js_aux_of_" ^ id
@@ -101,7 +100,6 @@ let gen_mli name (typedefs, excs, funcs, mode) =
val $lid:of_ aid$ : $t$ -> Orpc_js_server.obj
>> in
<:sig_item<
- $items (s_res0 id) res$ ;;
$items (s_arg id) arg$
$items (s_res id) orpc_res$
>> in
@@ -398,7 +396,6 @@ let gen_ml name (typedefs, excs, funcs, mode) =
let $lid:of_ aid$ v = $gen_of qual_id arg <:expr< v >>$
>> in
<:str_item<
- $items (s_res0 id) res$ ;;
$items (s_arg id) arg$ ;;
$items (s_res id) orpc_res$ ;;
>> in

0 comments on commit 36300b5

Please sign in to comment.