oops, ref cases were reversed

jaked · Jul 20, 2010 · 8e3a6aa · 8e3a6aa
1 parent 374c692
commit 8e3a6aa
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/src/generator/gen_aux.ml b/src/generator/gen_aux.ml
@@ -223,7 +223,7 @@ let rec gen_to qual_id t x =
     | Option (_loc, t) ->
         <:expr< Orpc_onc.to_option (fun x -> $gen_to t <:expr< x >>$) $x$ >>
 
-    | Ref (_loc, t) -> gen_to t <:expr< ! $x$ >>
+    | Ref (_loc, t) -> <:expr< ref $gen_to t x$ >>
 
     | Apply (_loc, mdl, id, args) ->
         <:expr<
@@ -323,8 +323,7 @@ let rec gen_of qual_id t v =
     | Option (_loc, t) ->
         <:expr< Orpc_onc.of_option (fun v -> $gen_of t <:expr< v >>$) $v$ >>
 
-    | Ref (_loc, t) ->
+    | Ref (_loc, t) -> gen_of t <:expr< ! $v$ >>
-        <:expr< ref ($gen_of t v$) >>
 
     | Apply (_loc, mdl, id, args) ->
         <:expr<