[GHC] #7918: SrcSpan's associated with expanded quasi-quotes are inconsistent

[GHC]

#7918: SrcSpan's associated with expanded quasi-quotes are inconsistent
---------------------------------+------------------------------------------
    Reporter:  edsko             |       Owner:                  
        Type:  bug               |      Status:  infoneeded      
    Priority:  normal            |   Milestone:                  
   Component:  Compiler          |     Version:  7.4.2           
    Keywords:                    |          Os:  Unknown/Multiple
Architecture:  Unknown/Multiple  |     Failure:  None/Unknown    
  Difficulty:  Unknown           |    Testcase:                  
   Blockedby:                    |    Blocking:                  
     Related:                    |  
---------------------------------+------------------------------------------
Changes (by simonpj):

  * status:  new => infoneeded
  * difficulty:  => Unknown


Comment:

 Can you check with 7.6 or HEAD?  Looks ok with HEAD to me:
 {{{
 bash-3.1$ c:/code/HEAD/inplace/bin/ghc-stage2 -c T7918.hs -ddump-splices
 -fforce-recomp -ddump-rn -dppr-debug
 Loading package ghc-prim ... linking ... done.
 Loading package integer-gmp ... linking ... done.
 Loading package base ... linking ... done.
 Loading package array-0.4.0.2 ... linking ... done.
 Loading package deepseq-1.3.0.2 ... linking ... done.
 Loading package containers-0.5.0.0 ... linking ... done.
 Loading package pretty-1.1.1.0 ... linking ... done.
 Loading package template-haskell ... linking ... done.
 T7918.hs:4:7:
     T7918.hs:4:7-13: Splicing expression
         {T7918.hs:4:11-13}
         "a"
       ======>
         {T7918.hs:4:11-13}
         GHC.Types.True{d}
 T7918.hs:5:7:
     T7918.hs:5:7-13: Splicing expression
         {T7918.hs:5:11-13}
         "b"
       ======>
         {T7918.hs:5:11-13}
         GHC.Base.id{v} GHC.Types.True{d}
 T7918.hs:6:7:
     T7918.hs:6:7-13: Splicing expression
         {T7918.hs:6:11-13}
         "c"
       ======>
         {T7918.hs:6:11-13}
         (GHC.Types.True{d} GHC.Classes.||{v} GHC.Types.False{d})
 T7918.hs:7:7:
     T7918.hs:7:7-13: Splicing expression
         {T7918.hs:7:11-13}
         "d"
       ======>
         {T7918.hs:7:11-13}
         GHC.Types.False{d}

 ==================== Renamer ====================
 nonrec {T7918.hs:7:1-13}
        main:T7918.ex4{v r0}
        main:T7918.ex4{v r0}
          = {T7918.hs:7:7-13}
            ghc-prim:GHC.Types.False{(w) d 68}
        <>
 nonrec {T7918.hs:6:1-13}
        main:T7918.ex3{v r1}
        main:T7918.ex3{v r1}
          = {T7918.hs:6:7-13}
            (ghc-prim:GHC.Types.True{(w) d 6u}
             ghc-prim:GHC.Classes.||{v r1g} ghc-prim:GHC.Types.False{(w) d
 68})
        <>
 nonrec {T7918.hs:5:1-13}
        main:T7918.ex2{v r2}
        main:T7918.ex2{v r2}
          = {T7918.hs:5:7-13}
            base:GHC.Base.id{v r2q} ghc-prim:GHC.Types.True{(w) d 6u}
        <>
 nonrec {T7918.hs:4:1-13}
        main:T7918.ex1{v r3}
        main:T7918.ex1{v r3}
          = {T7918.hs:4:7-13}
            ghc-prim:GHC.Types.True{(w) d 6u}
        <>

 bash-3.1$
 }}}
 Consistently 7-13.

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