example SCC

indexContracts ::
  DefaultBlock ->
  DefaultBlock ->
  Integer ->
  Integer ->
  IndexerMiddleware ->
  IndexT [(ContractType, Address)] ->
  IndexT (Either Web3Error ())
indexContracts start end window lag middleware getContracts =
  let getEventDescriptions =
        concatMap (uncurry contractEventDescriptions) <$> getContracts
      middleware' = {-# SCC "Ruben_middleware"#-} middleware
   in indexEthLog
        start
        end
        window
        lag
        eventHandler
        (middleware' <=< contractMiddleware)
        getEventDescriptions