-fth-dec-file outputs invalid case clauses
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"