git.annexia.org
/
libguestfs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
bd34e4e
)
generator.ml: convert leading TABs to spaces
author
Jim Meyering
<meyering@redhat.com>
Thu, 13 Aug 2009 12:47:00 +0000
(14:47 +0200)
committer
Jim Meyering
<meyering@redhat.com>
Thu, 13 Aug 2009 12:47:00 +0000
(14:47 +0200)
src/generator.ml
patch
|
blob
|
history
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";
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 ->
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;
| 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
pr_args n;
pr " REQUIRE_ROOT_OR_RESOLVE_DEVICE (%s, goto done);" n;
| String n -> pr_args n