conName :: Con -> Name
conName con = case con of
  NormalC x _ -> x
  RecC x _ -> x
  _ -> error $ "Network.AuthorizeNet.TH.conName: Unsupported constructor type" ++ show con
conName :: Con -> Name
conName con = case con of
  NormalC x _ -> x
  RecC x _ -> x
  _ -> error $ "Network.AuthorizeNet.TH.conName: Unsupported constructor type" ++ show con
conName con = case con of
  NormalC x _ -> x
  RecC x _ -> x
  _ -> error $ "Network.AuthorizeNet.TH.conName: Unsupported constructor type" ++ show con