Invalid!

[Manuel M T Chakravarty]

Pepe,
> But no, I did push the patch after all.
> Manuel, does validate still fail there ?
> Do you have the patch below?
>
> Sun Dec  9 10:21:41 PST 2007  Pepe Iborra <mnislaih at gmail.com>
> * Adapt to changes in :print (contents of references)
>
>   M ./tests/ghc-regress/ghci.debugger/scripts/print028.stdout -2 +3
>

It's ok now - I probably pulled before you pushed to the test suite.

Todays failure is

   Unexpected failures:
      haddock.Test(normal)

Transcript attached.

Manuel

-=-

  =====> haddock.Test(normal)
cd ./haddock/haddock_examples && '/Users/chak/Code/ghc-test/compiler/ 
stage2/ghc-inplace' -no-recomp -dcore-lint -dcmm-lint - 
Di386_apple_darwin  --make -o haddock.Test Test Hidden Visible  - 
fglasgow-exts -haddock -ddump-parsed  >haddock.Test.comp.stderr 2>&1
Actual stderr output differs from expected:
--- ./haddock/haddock_examples/haddock.Test.stderr.normalised	 
2007-12-11 13:22:12.000000000 +1100
+++ ./haddock/haddock_examples/haddock.Test.comp.stderr.normalised	 
2007-12-11 13:22:12.000000000 +1100
@@ -19,16 +19,16 @@
  ==================== Parser ====================
  <document comment>
  module Test (
-	<IEGroup: 1>, <IEGroup: 2>, T(..), T2, T3(..), T4(..), T5(..),  
T6(..), N1(..),
-	N2(..), N3(..), N4, N5(..), N6(..), N7(..), <IEGroup: 2>, R(..),  
R1(..),
-	<document comment>, p, q, u, <IEGroup: 1>, C(a, b), D(..), E, F(..),
-	<document comment>, a, <IEGroup: 1>, f, g, <IEGroup: 1>,  
<IEDocNamed: aux1>,
-	<IEDocNamed: aux2>, <IEDocNamed: aux3>, <IEDocNamed: aux4>,  
<IEDocNamed: aux5>,
-	<IEDocNamed: aux6>, <IEDocNamed: aux7>, <IEDocNamed: aux8>,  
<IEDocNamed: aux9>,
-	<IEDocNamed: aux10>, <IEDocNamed: aux11>, <IEDocNamed: aux12>,
-	<document comment>, <IEGroup: 1>, module Hidden, <IEGroup: 1>,  
module Visible,
-	<document comment>, <IEGroup: 1>, Ex(..), <IEGroup: 1>, k, l, m, o,
-	<IEGroup: 1>, <IEGroup: 2>, <document comment>, f'
+        <IEGroup: 1>, <IEGroup: 2>, T(..), T2, T3(..), T4(..),  
T5(..), T6(..), N1(..),
+        N2(..), N3(..), N4, N5(..), N6(..), N7(..), <IEGroup: 2>,  
R(..), R1(..),
+        <document comment>, p, q, u, <IEGroup: 1>, C(a, b), D(..), E,  
F(..),
+        <document comment>, a, <IEGroup: 1>, f, g, <IEGroup: 1>,  
<IEDocNamed: aux1>,
+        <IEDocNamed: aux2>, <IEDocNamed: aux3>, <IEDocNamed: aux4>,  
<IEDocNamed: aux5>,
+        <IEDocNamed: aux6>, <IEDocNamed: aux7>, <IEDocNamed: aux8>,  
<IEDocNamed: aux9>,
+        <IEDocNamed: aux10>, <IEDocNamed: aux11>, <IEDocNamed: aux12>,
+        <document comment>, <IEGroup: 1>, module Hidden, <IEGroup:  
1>, module Visible,
+        <document comment>, <IEGroup: 1>, Ex(..), <IEGroup: 1>, k, l,  
m, o,
+        <IEGroup: 1>, <IEGroup: 2>, <document comment>, f'
      ) where
  import Hidden
  import Visible
@@ -61,13 +61,9 @@
  class D a where { d :: T a b; e :: (a, a); }
  <document comment>
  instance D Int where
-    []
-    []
      { d = undefined
        e = undefined }
  instance Test.D Float where
-    []
-    []
      { d = undefined
        e = undefined }
  class E a where { ee :: a; }
@@ -77,19 +73,19 @@
  data R
      = <document comment>
        C1 {p :: Int <document comment>,
-	  q :: forall a. a -> a <document comment>,
-	  r :: Int <document comment>,
-	  s :: Int <document comment>} |
+          q :: forall a. a -> a <document comment>,
+          r :: Int <document comment>,
+          s :: Int <document comment>} |
        <document comment>
        C2 {t :: T1 -> (T2 Int Int) -> (T3 Bool Bool) -> (T4 Float  
Float) -> T5 () (),
-	  u :: Int,
-	  v :: Int}
+          u :: Int,
+          v :: Int}
  <document comment>
  data R1
      = <document comment>
        C3 {s1 :: Int <document comment>,
-	  s2 :: Int <document comment>,
-	  s3 :: Int <document comment>}
+          s2 :: Int <document comment>,
+          s3 :: Int <document comment>}
  <document comment>
  <document comment>
  <document comment>
@@ -123,7 +119,7 @@
    T () () <document comment>
    -> T2 Int Int <document comment>
       -> T3 Bool Bool -> T4 Float Float <document comment>
-	-> T5 () () <document comment> -> IO () <document comment>
+        -> T5 () () <document comment> -> IO () <document comment>
  l :: (Int, Int, Float) <document comment> -> Int <document comment>
  <document comment>
  m :: R -> N1 () <document comment> -> IO Int <document comment>
@@ -131,8 +127,8 @@
  newn :: R <document comment> -> N1 () <document comment> -> IO Int
  newn = undefined
  <document comment>
-foreign import ccall unsafe "static header.h &o" o :: Float <document  
comment>
-					      -> IO Float <document comment>
+foreign import ccall unsafe "static header.h &o" o
+  :: Float <document comment> -> IO Float <document comment>
  <document comment>
  newp :: Int
  newp = undefined
*** unexpected failure for haddock.Test(normal)