[GHC] #5336: Annotations aren't working

[GHC]

#5336: Annotations aren't working
---------------------------------+------------------------------------------
    Reporter:  simonmar          |        Owner:              
        Type:  bug               |       Status:  new         
    Priority:  highest           |    Milestone:  7.2.1       
   Component:  Compiler          |      Version:  7.1         
    Keywords:                    |     Testcase:              
   Blockedby:                    |   Difficulty:              
          Os:  Unknown/Multiple  |     Blocking:              
Architecture:  Unknown/Multiple  |      Failure:  None/Unknown
---------------------------------+------------------------------------------
 Some annotations tests are failing, e.g.:

 {{{
 =====> annrun01(normal) 1718 of 2892 [0, 16, 0]
 cd ./annotations/should_run && $MAKE -s config
 make[1]: Entering directory `/64playpen/simonmar/nightly/HEAD-
 cam-04-unx/x86_64-unknown-linux/testsuite/tests/ghc-
 regress/annotations/should_run'
 Creating Config.hs ...
 make[1]: Leaving directory `/64playpen/simonmar/nightly/HEAD-
 cam-04-unx/x86_64-unknown-linux/testsuite/tests/ghc-
 regress/annotations/should_run'
 cd ./annotations/should_run && '/64playpen/simonmar/nightly/HEAD-
 cam-04-unx/x86_64-unknown-linux/inplace/bin/ghc-stage2' -fforce-recomp
 -dcore-lint -dcmm-lint -dno-debug-output -no-user-package-conf -rtsopts
 --make -o annrun01 annrun01  -package ghc  >annrun01.comp.stderr 2>&1
 cd ./annotations/should_run && ./annrun01    </dev/null
 >annrun01.run.stdout 2>annrun01.run.stderr
 Actual stdout output differs from expected:
 --- ./annotations/should_run/annrun01.stdout    2011-07-20
 18:00:41.838228896 +0100
 +++ ./annotations/should_run/annrun01.run.stdout        2011-07-20
 23:21:18.978853712 +0100
 @@ -4,10 +4,10 @@
  Finding Module
  Getting Module Info
  Showing Details For Module
 -([10],[],["Rock!!!!","Annotations","Module"],[])
 +([],[],[],[])
  Showing Details For Exports
 -([],[Just True],["Type Annotation"],[Annrun01_Help.Baz])
  ([],[],[],[])
 -([1],[],["Hello World Again!"],[Annrun01_Help.bar,Annrun01_Help.foo])
  ([],[],[],[])
 -([],[],["World!","Hello"],[])
 +([],[],[],[])
 +([],[],[],[])
 +([],[],[],[])
 *** unexpected failure for annrun01(normal)
 }}}

 This looks like it might be related to the recent `Typeable` changes, but
 I'm not at all familiar with this code.

-- 
Ticket URL: <http://hackage.haskell.org/trac/ghc/ticket/5336>
GHC <http://www.haskell.org/ghc/>
The Glasgow Haskell Compiler