[GHC] #10707: -fth-dec-file outputs invalid case clauses

[GHC]

#10707: -fth-dec-file outputs invalid case clauses
-------------------------------------+-------------------------------------
        Reporter:  Fabian            |                   Owner:
            Type:  bug               |                  Status:  new
        Priority:  normal            |               Milestone:
       Component:  Compiler          |                 Version:  7.10.1
      Resolution:                    |                Keywords:
Operating System:  Unknown/Multiple  |            Architecture:
                                     |  Unknown/Multiple
 Type of failure:  Other             |               Test Case:
      Blocked By:                    |                Blocking:
 Related Tickets:  #10701            |  Differential Revisions:
-------------------------------------+-------------------------------------
Description changed by Fabian:

Old description:

> instance Data.Aeson.Types.Class.ToJSON Language.Haskell.TH.Syntax.Name
> where
>   Data.Aeson.Types.Class.toJSON x
>     = \ k_a94l v_a94m
>         -> case k_a94l of {
>              GHC.Base.Just "" -> GHC.Err.undefined
>              GHC.Base.Nothing -> GHC.Err.undefined }
>         (GHC.Base.Just "test") "test2"

New description:

 {{{#!hs
 instance Data.Aeson.Types.Class.ToJSON Language.Haskell.TH.Syntax.Name
 where
   Data.Aeson.Types.Class.toJSON x
     = \ k_a94l v_a94m
         -> case k_a94l of {
              GHC.Base.Just "" -> GHC.Err.undefined
              GHC.Base.Nothing -> GHC.Err.undefined }
         (GHC.Base.Just "test") "test2"
 }}}

--

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