X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=generator%2Fgenerator_fish.ml;h=6d6a571208e94d766be1b43bb7cd050600acd5fe;hb=b4da051d54a1597c7d8db8880d21a52265a6172e;hp=dc2dc3eae0ae29d53009bf320bf04677f8bb3ee8;hpb=3064277680ad11f887691646d0fa17bb35f38c19;p=libguestfs.git

diff --git a/generator/generator_fish.ml b/generator/generator_fish.ml
index dc2dc3e..6d6a571 100644
--- a/generator/generator_fish.ml
+++ b/generator/generator_fish.ml
@@ -136,16 +136,6 @@ Guestfish will prompt for these separately."
             ("\n\n" ^ protocol_limit_warning)
           else "" in
 
-      (* For DangerWillRobinson commands, we should probably have
-       * guestfish prompt before allowing you to use them (especially
-       * in interactive mode). XXX
-       *)
-      let warnings =
-        warnings ^
-          if List.mem DangerWillRobinson flags then
-            ("\n\n" ^ danger_will_robinson)
-          else "" in
-
       let warnings =
         warnings ^
           match deprecation_notice flags with
@@ -865,9 +855,6 @@ Guestfish will prompt for these separately.\n\n";
       if List.mem ProtocolLimitWarning flags then
         pr "%s\n\n" protocol_limit_warning;
 
-      if List.mem DangerWillRobinson flags then
-        pr "%s\n\n" danger_will_robinson;
-
       match deprecation_notice flags with
       | None -> ()
       | Some txt -> pr "%s\n\n" txt