@@ -77,7 +77,7 @@ mkRollbarScribe proxy accessToken manager severity verbosity = do
7777 setupWorkers proxy queue finalize manager
7878 let liPush item = when (permitItem severity item) $
7979 atomically (writeTBMQueue queue $ rollbarItem' item)
80− rollbarItem' item = rollbarItem proxy accessToken item verbosity
80+ rollbarItem' item = rollbarItem proxy accessToken verbosity item
8181 scribeFinalizer = do
8282 putMVar finalize ()
8383 takeMVar finalize
@@ -87,10 +87,10 @@ rollbarItem ::
8787 (LogItem a, RemoveHeaders headers) =>
8888 proxy headers ->
8989 AccessToken ->
90− Katip.Item a ->
9190 Verbosity ->
91+ Katip.Item a ->
9292 Item Value ("Authorization" ': headers)
93−rollbarItem _ accessToken item verbosity = Item { accessToken, itemData }
93+rollbarItem _ accessToken verbosity item = Item { accessToken, itemData }
9494 where
9595 environment :: Environment
9696 environment = Environment (getEnvironment $ _itemEnv item)