Some debug ideas from bringert

2005-12-07 23:52:30 +00:00
parent f3e5ae10fb
commit fc1a519459
2 changed files with 4 additions and 1 deletions
--- a/src/System/Plugins/Load.hs
+++ b/src/System/Plugins/Load.hs
@ -547,7 +547,8 @@ loadPackage p = do
        (libs,dlls) <- lookupPkg p
        mapM_ (\l -> loadObject l (Package (mkModid l))) libs
 #if DEBUG
-        putStr (' ':show dlls)
+        putStr (' ':show libs) >> hFlush stdout
+        putStr (' ':show dlls) >> hFlush stdout
 #endif
 	mapM_ loadShared dlls