From: Richard Jones <rjones@redhat.com>
Date: Sat, 8 May 2010 08:26:57 +0000 (+0100)
Subject: generator: FishAction is no longer used, remove this feature.
X-Git-Tag: 1.3.11~6
X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;h=301abf33c6985b61604dfae5db75cf767aa5e651;p=libguestfs.git

generator: FishAction is no longer used, remove this feature.
---

diff --git a/src/generator.ml b/src/generator.ml
index 31ef313..d2abafc 100755
--- a/src/generator.ml
+++ b/src/generator.ml
@@ -181,7 +181,6 @@ type flags =
   | ProtocolLimitWarning  (* display warning about protocol size limits *)
   | DangerWillRobinson	  (* flags particularly dangerous commands *)
   | FishAlias of string	  (* provide an alias for this cmd in guestfish *)
-  | FishAction of string  (* call this function in guestfish *)
   | FishOutput of fish_output_t (* how to display output in guestfish *)
   | NotInFish		  (* do not export via guestfish *)
   | NotInDocs		  (* do not add this function to documentation *)
@@ -7575,10 +7574,7 @@ and generate_fish_cmds () =
       ) (snd style);
 
       (* Call C API function. *)
-      let fn =
-        try find_map (function FishAction n -> Some n | _ -> None) flags
-        with Not_found -> sprintf "guestfs_%s" name in
-      pr "  r = %s " fn;
+      pr "  r = guestfs_%s " name;
       generate_c_call_args ~handle:"g" style;
       pr ";\n";