[commit: ghc] wip/angerman/win32-cross-2: Better logging in iserv-remote (c5fd54a)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/angerman/win32-cross-2
Link       : http://ghc.haskell.org/trac/ghc/changeset/c5fd54a15c919a4515aefb045271be1042d35772/ghc

>---------------------------------------------------------------

commit c5fd54a15c919a4515aefb045271be1042d35772
Author: Moritz Angermann <moritz.angermann at gmail.com>
Date:   Wed Mar 7 13:38:28 2018 +0800

    Better logging in iserv-remote


>---------------------------------------------------------------

c5fd54a15c919a4515aefb045271be1042d35772
 libraries/libiserv/src/Remote/Slave.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/libraries/libiserv/src/Remote/Slave.hs b/libraries/libiserv/src/Remote/Slave.hs
index b80d095..9387db1 100644
--- a/libraries/libiserv/src/Remote/Slave.hs
+++ b/libraries/libiserv/src/Remote/Slave.hs
@@ -112,6 +112,7 @@ hook verbose base_path pipe m = case m of
     handleLoad pipe path (base_path <//> path)
     return $ Msg (LoadObj (base_path <//> path))
   Msg (LoadArchive path) -> do
+    when verbose $ putStrLn ("Need Archieve: " ++ path ++ " at " ++ (base_path <//> path))
     handleLoad pipe path (base_path <//> path)
     return $ Msg (LoadArchive (base_path <//> path))
   -- when loading DLLs (.so, .dylib, .dll, ...) and these are provided
@@ -119,7 +120,7 @@ hook verbose base_path pipe m = case m of
   -- therefore we hook the LoadDLL call only for absolute paths to ship the
   -- dll from the host to the target.
   Msg (LoadDLL path) | isAbsolute path -> do
-    when verbose $ putStrLn ("Need DLL: " ++ (base_path <//> path))
+    when verbose $ putStrLn ("Need DLL: " ++ path ++ " at " ++ (base_path <//> path))
     handleLoad pipe path (base_path <//> path)
     return $ Msg (LoadDLL (base_path <//> path))
   _other -> return m