[GHC] #15867: STG scope error

[GHC]

#15867: STG scope error
-------------------------------------+-------------------------------------
        Reporter:  csabahruska       |                Owner:  sgraf
            Type:  bug               |               Status:  patch
        Priority:  normal            |            Milestone:
       Component:  Compiler          |              Version:  8.7
      Resolution:                    |             Keywords:  CodeGen
Operating System:  Unknown/Multiple  |         Architecture:
                                     |  Unknown/Multiple
 Type of failure:  None/Unknown      |            Test Case:
      Blocked By:                    |             Blocking:
 Related Tickets:                    |  Differential Rev(s):  Phab:D5310
       Wiki Page:                    |
-------------------------------------+-------------------------------------

Comment (by csabahruska):

 Another one: `libraries/containers/Data/Sequence/Internal.hs`
 {{{
 *** Stg Lint ErrMsgs: in StgCse ***

 <no location info>: warning:
      [in body of lambda with binders eta2_s1rRb :: Int]
     n_s1rR0 :: (Seq a_afnp, Seq a_afnp) is duplicated (Uniq)

 *** Offending Program ***

                                             let {
                                               sat_s1rUG [Occ=OnceT[0]]
                                                 :: Int -> (Seq a_afnp, Seq
 a_afnp)
                                               [LclId] =
                                                   [n_s1rR0
                                                    wild_s1rR1
                                                    dt_s1rR4
                                                    n_s1rR0
                                                    lvl175_s1rR9
                                                    lvl176_s1rTS
                                                    lvl177_s1rTT
                                                    lvl178_s1rTU
                                                    lvl179_s1rTV] \r
 [i_s1rTW]
 }}}

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