module Galley.Schema.V71_MemberClientKeypackage where
import Cassandra.Schema
import Imports
import Text.RawString.QQ
migration :: Migration
migration :: Migration
migration =
Int32 -> Text -> Client () -> Migration
Migration Int32
71 Text
"Replace mls_clients with mls_clients_keypackages in member table" (Client () -> Migration) -> Client () -> Migration
forall a b. (a -> b) -> a -> b
$ do
Text -> Client ()
schema'
Text
[r|
ALTER TABLE member ADD (
mls_clients_keypackages set<frozen<tuple<text, blob>>>
);
|]
Text -> Client ()
schema'
Text
[r|
ALTER TABLE member DROP (
mls_clients
);
|]
Text -> Client ()
schema'
Text
[r|
ALTER TABLE member_remote_user ADD (
mls_clients_keypackages set<frozen<tuple<text, blob>>>
);
|]
Text -> Client ()
schema'
Text
[r|
ALTER TABLE member_remote_user DROP (
mls_clients
);
|]