[GHC] #11033: ghc 7.10.2 testsuite: "DoParamM(normal)" test fails

[GHC]

#11033: ghc 7.10.2 testsuite: "DoParamM(normal)" test fails
--------------------------------------+---------------------------------
           Reporter:  dtonhofer       |             Owner:
               Type:  bug             |            Status:  new
           Priority:  normal          |         Milestone:
          Component:  Test Suite      |           Version:  7.10.2
           Keywords:                  |  Operating System:  Linux
       Architecture:  x86_64 (amd64)  |   Type of failure:  None/Unknown
          Test Case:                  |        Blocked By:
           Blocking:                  |   Related Tickets:
Differential Rev(s):                  |         Wiki Page:
--------------------------------------+---------------------------------
 In the log:


 {{{
 =====> DoParamM(normal) 13 of 4142 [0, 0, 0]
 cd ./rebindable &&  "/usr/local/bin/ghc" -c DoParamM.hs -fforce-recomp
 -dcore-lint -dcmm-lint -dno-debug-output -no-user-package-db -rtsopts
 -fno-warn-tabs -fno-ghci-history   > DoParamM.comp.stderr 2>&1
 Actual stderr output differs from expected:
 --- ./rebindable/DoParamM.stderr        2014-12-23 02:31:11.000000000
 +0000
 +++ ./rebindable/DoParamM.comp.stderr   2015-10-29 10:21:12.520000000
 +0000
 @@ -1,25 +1,20 @@

  DoParamM.hs:146:25:
 -    Couldn't match expected type `Int' with actual type `Char'
 -    In the second argument of `(==)', namely v'
 -    In the first argument of `return', namely `(v == v')'
 -    In a stmt of a 'do' block: return (v == v')
 +    Couldn't match expected type ‘Int’ with actual type ‘Char’
 +    In the second argument of ‘(==)’, namely ‘v'’
 +    In the first argument of ‘return’, namely ‘(v == v')’

  DoParamM.hs:286:28:
 -    Couldn't match type `Unlocked' with `Locked'
 +    Couldn't match type ‘Unlocked’ with ‘Locked’
      Expected type: LIO Locked Locked ()
        Actual type: LIO Unlocked Locked ()
      In a stmt of a 'do' block: tlock2_do
      In the expression:
        do { tlock2_do;
             tlock2_do }
 -    In an equation for `tlock4_do':
 -        tlock4_do
 -          = do { tlock2_do;
 -                 tlock2_do }

  DoParamM.hs:302:37:
 -    Couldn't match type `Locked' with `Unlocked'
 +    Couldn't match type ‘Locked’ with ‘Unlocked’
      Expected type: LIO Unlocked Unlocked ()
        Actual type: LIO Locked Unlocked ()
      In a stmt of a 'do' block: unlock
 @@ -27,8 +22,3 @@
        do { tlock2_do;
             unlock;
             unlock }
 -    In an equation for `tlock4'_do':
 -        tlock4'_do
 -          = do { tlock2_do;
 -                 unlock;
 -                 unlock }
 *** unexpected failure for DoParamM(normal)
 }}}

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