[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
              Keywords:              |  Operating System:  Unknown/Multiple
          Architecture:              |   Type of failure:  Other
  Unknown/Multiple                   |
             Test Case:              |        Blocked By:
              Blocking:              |   Related Tickets:  #10701
Differential Revisions:              |
-------------------------------------+-------------------------------------
 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>
GHC <http://www.haskell.org/ghc/>
The Glasgow Haskell Compiler