X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fghc-inplace.c;fp=compiler%2Fghc-inplace.c;h=0129258c28a0eac9af3ffd41e456cbded3fbdc0c;hb=b2445ac5c5d83a8cdedd78d7b80db9eb11012030;hp=abedefe3cb96caaeef70dbae0f1f0159a8b8006c;hpb=44f8b8bca3d9c6ac45934daa6b74c1e6307582ea;p=ghc-hetmet.git

diff --git a/compiler/ghc-inplace.c b/compiler/ghc-inplace.c
index abedefe..0129258 100644
--- a/compiler/ghc-inplace.c
+++ b/compiler/ghc-inplace.c
@@ -14,6 +14,9 @@ int main(int argc, char **argv) {
     args[0] = GHC_PATH;
     args[1] = "-B" TOP_ABS;
     args[2] = "-fhardwire-lib-paths";
+    if ((argc >= 2) && (strcmp(argv[1], "-v") == 0)) {
+        printf("Using %s %s %s\n", args[0], args[1], args[2]);
+    }
     memcpy(args + 3, argv + 1, sizeof(char *) * (argc - 1));
     args[argc+2] = NULL;
     execv(GHC_PATH, args);