rename hashPlaintextToken -> convertPlaintextToken

wireapp · Oct 29, 2020 · 75ebe88 · 75ebe88
1 parent c65cb10
commit 75ebe88
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/services/spar/src/Spar/Data.hs b/services/spar/src/Spar/Data.hs
@@ -630,7 +630,7 @@ lookupScimToken token = do
     case scimTokenLookupKey row of
       ScimTokenLookupKeyHashed _ -> pure ()
       ScimTokenLookupKeyPlaintext token' ->
-        hashPlaintextToken token' tokenInfo
+        connvertPlaintextToken token' tokenInfo
     pure tokenInfo
   where
     sel :: PrepQuery R (ScimTokenHash, ScimToken) ScimTokenRow
@@ -640,12 +640,12 @@ lookupScimToken token = do
         FROM team_provisioning_by_token WHERE token_ in (?, ?)
       |]
 
-hashPlaintextToken ::
+connvertPlaintextToken ::
   (HasCallStack, MonadClient m) =>
   ScimToken ->
   ScimTokenInfo ->
   m ()
-hashPlaintextToken token ScimTokenInfo {..} = retry x5 . batch $ do
+connvertPlaintextToken token ScimTokenInfo {..} = retry x5 . batch $ do
   setType BatchLogged
   setConsistency Quorum
   addPrepQuery delById (stiTeam, stiId)