This looks like the bug:

     noSpace q = q >>= maybe (return Nothing)
-                            (\c->case removeSpaces c of
-                                   ""   -> noSpace q
-                                   ":{" -> multiLineCmd q
-                                   c    -> return (Just c) )
+                            (\c -> case removeSpaces c of
+                                     ""   -> noSpace q
+                                     ":{" -> multiLineCmd q
+                                     _    -> return (Just c) )

From the patch

commit e7e771d14ac671904a69abecf9e133d4647026c1
Author: David Terei <[email protected]>
Date:   Tue Dec 13 16:37:03 2011 -0800

    Fix warnings


I'll fix it.

Cheers,
        Simon


On 31/12/2011 02:10, David Terei wrote:
Hmm so I think I validated a tree without my patches to make sure I
wasn't the offender.

I'll check again when I'm back at work on the 4th.

On 29 December 2011 21:28, Simon Peyton-Jones<[email protected]>  wrote:
David

Any comments?  The patch to interactiveUI was yours I think.  I have not 
binary-chopped to be sure this is the offending commit but it looks plausible.  
And the test is failing consistently

Simon

commit a20cdb930a6f9e980521e0767867217ed96033f4
Author: David Terei<[email protected]>
Date:   Wed Dec 21 14:58:39 2011 -0800

    Fix safe imports to work in GHCi.

  compiler/main/GHC.hs     |   26 +++++++++++++--------
  compiler/main/HscMain.hs |   54 +++++++++++++++++++++++++++++++--------------
  ghc/InteractiveUI.hs     |   23 ++++++++++++++-----
  3 files changed, 70 insertions(+), 33 deletions(-)

| -----Original Message-----
| From: [email protected] [mailto:[email protected]] On
| Behalf Of Dimitrios Vytiniotis
| Sent: 22 December 2011 12:19
| To: [email protected]
| Subject: validate test failure
|
|
| Hi, in my tree I get  'break012' failing with some fairly small modifications
| in the output:
|
| cd ./ghci.debugger/scripts&&  HC='/64playpen/dimitris/GHC-
| HEAD/ghc/inplace/bin/ghc-stage2' HC_OPTS='-dcore-lint -dcmm-lint -dno-debug-
| output -no-user-package-conf -rtsopts  -fno-ghci-history '
| '/64playpen/dimitris/GHC-HEAD/ghc/inplace/bin/ghc-stage2' --interactive -v0 -
| ignore-dot-ghci -dcore-lint -dcmm-lint -dno-debug-output -no-user-package-
| conf -rtsopts  -fno-ghci-history  -ignore-dot-ghci<break012.script
|>break012.run.stdout 2>break012.run.stderr
| Actual stdout output differs from expected:
| --- ./ghci.debugger/scripts/break012.stdout     2011-11-29 12:00:03.000000000
| +0000
| +++ ./ghci.debugger/scripts/break012.run.stdout 2011-12-22 12:17:23.218853401
| +0000
| @@ -6,9 +6,9 @@
|  b :: a2 ->  a2 = _
|  c :: () = _
|  d :: a ->  a ->  a = _
| -a :: t
| -b :: a2 ->  a2
| -c :: ()
| +a  :: t
| +b  :: a2 ->  a2
| +c  :: ()
|  d :: a ->  a ->  a
|  a = (_t1::t)
|  b = (_t2::forall a2. a2 ->  a2)
| *** unexpected failure for break012(ghci)
|
|
| It's not from my latest patch (just pushed) (I checked with HEAD before
| pushing) but it's fairly
| recent (>= 19 Dec). Maybe the latest patches to InteractiveUI etc? Not sure
| ...
|
| Thanks!
| d-
|
|
| _______________________________________________
| Cvs-ghc mailing list
| [email protected]
| http://www.haskell.org/mailman/listinfo/cvs-ghc



_______________________________________________
Cvs-ghc mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/cvs-ghc


_______________________________________________
Cvs-ghc mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/cvs-ghc

Reply via email to