class HasLoggingRep a where
  toLogEntry :: a -> Text

-- ...
where
  logInfo :: forall a . HasLoggingRep a => a -> IO ()
  logInfo = loggerF logger Info . toLogEntry
-- ...
  someFn response = do
    logInfo response
  someFn2 request = do
    logInfo request