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"