From e99fb52fb7112dd72be0a43970542df85590556a Mon Sep 17 00:00:00 2001 From: Jim Meyering Date: Thu, 13 Aug 2009 14:47:00 +0200 Subject: [PATCH] generator.ml: convert leading TABs to spaces --- src/generator.ml | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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 -- 1.8.3.1