-- This file is part of the Wire Server implementation. -- -- Copyright (C) 2022 Wire Swiss GmbH <opensource@wire.com> -- -- This program is free software: you can redistribute it and/or modify it under -- the terms of the GNU Affero General Public License as published by the Free -- Software Foundation, either version 3 of the License, or (at your option) any -- later version. -- -- This program is distributed in the hope that it will be useful, but WITHOUT -- ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS -- FOR A PARTICULAR PURPOSE. See the GNU Affero General Public License for more -- details. -- -- You should have received a copy of the GNU Affero General Public License along -- with this program. If not, see <https://www.gnu.org/licenses/>. module Galley.Cassandra.Util where import Data.ByteString import Imports import Polysemy import Polysemy.TinyLog import System.Logger.Message logEffect :: (Member TinyLog r) => ByteString -> Sem r () logEffect :: forall (r :: EffectRow). Member TinyLog r => ByteString -> Sem r () logEffect = (Msg -> Msg) -> Sem r () forall msg (r :: EffectRow). Member (Logger msg) r => msg -> Sem r () debug ((Msg -> Msg) -> Sem r ()) -> (ByteString -> Msg -> Msg) -> ByteString -> Sem r () forall b c a. (b -> c) -> (a -> b) -> a -> c . Builder -> Msg -> Msg forall a. ToBytes a => a -> Msg -> Msg msg (Builder -> Msg -> Msg) -> (ByteString -> Builder) -> ByteString -> Msg -> Msg forall b c a. (b -> c) -> (a -> b) -> a -> c . ByteString -> Builder val