fix type names in generates sigs

Author: avsm

README.md

@@ -82,6 +82,8 @@ val get_pcap_packet_incl_len : Cstruct.t -> Cstruct.uint32
 val set_pcap_packet_incl_len : Cstruct.t -> Cstruct.uint32 -> unit
 val get_pcap_packet_orig_len : Cstruct.t -> Cstruct.uint32
 val set_pcap_packet_orig_len : Cstruct.t -> Cstruct.uint32 -> unit
+val hexdump_pcap_packet_to_buffer : Buffer.t -> pcap_packet -> unit
+val hexdump_pcap_packet : Cstruct.t -> unit
 
 val sizeof_ethernet : int
 val get_ethernet_dst : Cstruct.t -> Cstruct.t

syntax/pa_cstruct.ml

@@ -219,8 +219,8 @@ let output_hexdump _loc s =
 
 let output_hexdump_sig _loc s =
   <:sig_item<
-    value $lid:"hexdump_"^s.name^"_to_buffer"$ : Buffer.t -> $lid:s.name$ -> unit;
-    value $lid:"hexdump_"^s.name$ : $lid:s.name$ -> unit;
+    value $lid:"hexdump_"^s.name^"_to_buffer"$ : Buffer.t -> Cstruct.t -> unit;
+    value $lid:"hexdump_"^s.name$ : Cstruct.t -> unit;
   >>
 
 let output_struct _loc s =