dynamic001 fails due to printing types qualified

[daniel.is.fischer]

dynamic001 unexpectedly fails (all ways) because types are printed qualified:

Actual stdout output differs from expected:
--- ./lib/should_run/dynamic001.stdout.normalised	2011-05-09 16:44:28.000000000 +0200
+++ ./lib/should_run/dynamic001.run.stdout.normalised	2011-05-09 16:44:28.000000000 +0200
@@ -1,27 +1,27 @@
 *** Testing: toDyn ***
-[ <<Int>>
-, <<Char>>
-, <<Bool>>
-, <<Float>>
-, <<Double>>
-, <<Integer>>
-, <<IO ()>>
-, <<[Dynamic]>>
-, <<[Int]>>
-, <<Maybe Int>>
-, <<Maybe Int>>
-, <<Maybe Int>>
-, <<Either Int Bool>>
-, <<Either Char Int>>
+[ <<GHC.Types.Int>>
+, <<GHC.Types.Char>>
+, <<GHC.Types.Bool>>
+, <<GHC.Types.Float>>
+, <<GHC.Types.Double>>
+, <<GHC.Integer.Type.Integer>>
+, <<GHC.Types.IO ()>>
+, <<[Data.Dynamic.Dynamic]>>
+, <<[GHC.Types.Int]>>
+, <<Data.Maybe.Maybe GHC.Types.Int>>
+, <<Data.Maybe.Maybe GHC.Types.Int>>
+, <<Data.Maybe.Maybe GHC.Types.Int>>
+, <<Data.Either.Either GHC.Types.Int GHC.Types.Bool>>
+, <<Data.Either.Either GHC.Types.Char GHC.Types.Int>>
 , <<()>>
-, <<Ordering>>
-, <<((),Int)>>
-, <<((),Int,Char)>>
-, <<((),Int,Char,Double)>>
-, <<((),Int,Char,Double,(Maybe Bool))>>
-, <<Int -> Int -> Int>>
-, <<Integer -> Integer -> Integer>>
-, <<[Char] -> [Char] -> [Char]>>
+, <<GHC.Ordering.Ordering>>
+, <<((),GHC.Types.Int)>>
+, <<((),GHC.Types.Int,GHC.Types.Char)>>
+, <<((),GHC.Types.Int,GHC.Types.Char,GHC.Types.Double)>>
+, <<((),GHC.Types.Int,GHC.Types.Char,GHC.Types.Double,(Data.Maybe.Maybe GHC.Types.Bool))>>
+, <<GHC.Types.Int -> GHC.Types.Int -> GHC.Types.Int>>
+, <<GHC.Integer.Type.Integer -> GHC.Integer.Type.Integer -> GHC.Integer.Type.Integer>>
+, <<[GHC.Types.Char] -> [GHC.Types.Char] -> [GHC.Types.Char]>>
 ]
 *** Testing: fromDyn ***
 1
*** unexpected failure for dynamic001(dyn)

If that behaviour is stable, the expected stdout should be updated.

[daniel.is.fischer]

Fixed by changeset 2b1b58204204a17781bd39259055cd05000638b3