          eRoundtripText <-
            lift $
              runEncryptM encryptionSettings $
                decryptText =<< encryptText originalText
          -- The result should be a 'Right' and match the 'originalText'