generator.ml: convert leading TABs to spaces

diff --git a/src/generator.ml b/src/generator.ml
index 9d96170..b4dd4cd 100755 (executable)
--- 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