WIP

Author: fisx

services/galley/src/Galley/Cassandra/Queries.hs

@@ -194,6 +194,9 @@ updateTeamStatus = "update team set status = ? where team = ?"
 updateTeamSplashScreen :: PrepQuery W (AssetKey, TeamId) ()
 updateTeamSplashScreen = "update team set splash_screen = ? where team = ?"
 
+deleteTeamSplashScreen :: PrepQuery W (TeamId) ()
+deleteTeamSplashScreen = "update team set splash_screen = NULL where team = ?"
+
 -- Conversations ------------------------------------------------------------
 
 selectConv :: PrepQuery R (Identity ConvId) (ConvType, UserId, Maybe (C.Set Access), Maybe AccessRoleLegacy, Maybe (C.Set AccessRoleV2), Maybe Text, Maybe TeamId, Maybe Bool, Maybe Milliseconds, Maybe ReceiptMode, Maybe ProtocolTag, Maybe GroupId, Maybe Epoch, Maybe CipherSuiteTag)