From fc1a51945985ac58c8c90ac4efb28b31267d2d1a Mon Sep 17 00:00:00 2001
From: dons <dons@cse.unsw.edu.au>
Date: Wed, 7 Dec 2005 23:52:30 +0000
Subject: [PATCH] Some debug ideas from bringert

---
 TODO                       | 2 ++
 src/System/Plugins/Load.hs | 3 ++-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/TODO b/TODO
index 09eed62..6d1eb68 100644
--- a/TODO
+++ b/TODO
@@ -1,6 +1,8 @@
 For 0.1
 ----------
 
++ version numbers in package loads are annyoing
+
 + .hi file parser is broken on Itanium, again.
 
 + build way=p and way=''
diff --git a/src/System/Plugins/Load.hs b/src/System/Plugins/Load.hs
index e25d7a0..1daab7c 100644
--- 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