Skip to content
Browse files

Permute the arguments of 'gen' to please the type-checker.

  • Loading branch information...
1 parent f66b0dd commit 3964f0fc8f2b19b583a8d62581979c6201c26363 David Scott committed Sep 15, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 lib/p4_rpc.ml
View
2 lib/p4_rpc.ml
@@ -465,7 +465,7 @@ module Of_rpc = struct
end
-let gen tds args =
+let gen args tds =
let _loc = loc_of_ctyp tds in
mapping := (match args with None -> [] | Some l -> l);
revmapping := List.map (fun (k,v) -> (v,k)) !mapping;

0 comments on commit 3964f0f

Please sign in to comment.
Something went wrong with that request. Please try again.