From: Jim Meyering Date: Thu, 13 Aug 2009 12:47:00 +0000 (+0200) Subject: generator.ml: convert leading TABs to spaces X-Git-Tag: 1.0.67~12 X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;h=e99fb52fb7112dd72be0a43970542df85590556a;p=libguestfs.git generator.ml: convert leading TABs to spaces --- diff --git a/src/generator.ml b/src/generator.ml index 9d96170..b4dd4cd 100755 --- a/src/generator.ml +++ b/src/generator.ml @@ -4757,9 +4757,9 @@ and generate_daemon_actions () = pr " reply_with_error (\"%%s: daemon failed to decode procedure arguments\", \"%s\");\n" name; pr " return;\n"; pr " }\n"; - let pr_args n = - pr " char *%s = args.%s;\n" n n - in + let pr_args n = + pr " char *%s = args.%s;\n" n n + in List.iter ( function | Pathname n -> @@ -4768,7 +4768,7 @@ and generate_daemon_actions () = | Device n -> pr_args n; pr " RESOLVE_DEVICE (%s, goto done);" n; - | Dev_or_Path n -> + | Dev_or_Path n -> pr_args n; pr " REQUIRE_ROOT_OR_RESOLVE_DEVICE (%s, goto done);" n; | String n -> pr_args n