isAllNullary :: [Con] -> Bool
isAllNullary cons = flip all cons $ \con ->
  case con of
    NormalC _ [] -> True
    NormalC _ _ -> False
    RecC _ [] -> True
    RecC _ _ ->  False
    _ -> error $ "Network.AuthorizeNet.TH.isAllNullary: Unsupported constructor type " ++ show cons
isAllNullary :: [Con] -> Bool
isAllNullary cons = flip all cons $ \con ->
  case con of
    NormalC _ [] -> True
    NormalC _ _ -> False
    RecC _ [] -> True
    RecC _ _ ->  False
    _ -> error $ "Network.AuthorizeNet.TH.isAllNullary: Unsupported constructor type " ++ show cons
isAllNullary cons = flip all cons $ \con ->
  case con of
    NormalC _ [] -> True
    NormalC _ _ -> False
    RecC _ [] -> True
    RecC _ _ ->  False
    _ -> error $ "Network.AuthorizeNet.TH.isAllNullary: Unsupported constructor type " ++ show cons