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

[git at git.haskell.org]

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

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

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

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

    Better logging in iserv-remote


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

7c8ad02f4ac5c2ed5508081a1024bcd8a060ef33
 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