fourmolu-0.2.0.0: data/examples/declaration/value/function/list-notation-1-out.hs

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