fourmolu-0.13.0.0: fixity-tests/test-0-no-extra-info-expected.hs

instance A.ToJSON UpdateTable where
  toJSON a =
    A.object $
      "TableName"
        .= updateTableName a
        :> "ProvisionedThroughput"
        .= updateProvisionedThroughput a
        :> case updateGlobalSecondaryIndexUpdates a of
          [] -> []
          l -> ["GlobalSecondaryIndexUpdates" .= l]