Remove redundant $

pcapriotti · mdimjasevic · pcapriotti · commit 9eba8e466de2 · 2022-01-10T08:19:25.000+01:00
Co-authored-by: Marko Dimjašević &lt;marko.dimjasevic@wire.com&gt;
diff --git a/services/federator/src/Federator/MockServer.hs b/services/federator/src/Federator/MockServer.hs
@@ -160,7 +160,7 @@ withTempMockFederator headers resp action = do
                           frBody = rdBody
                         }
                     )
-              embed @IO $ modifyIORef remoteCalls $ (<> [fedRequest])
+              embed @IO $ modifyIORef remoteCalls (<> [fedRequest])
               (ct, body) <-
                 fromException @MockException
                   . handle (throw . handleException)

Original file line number	Diff line number	Diff line change
`@@ -160,7 +160,7 @@ withTempMockFederator headers resp action = do`
`160`	`160`	`frBody = rdBody`
`161`	`161`	`}`
`162`	`162`	`)`
`163`		`- embed @IO $ modifyIORef remoteCalls $ (<> [fedRequest])`
	`163`	`+ embed @IO $ modifyIORef remoteCalls (<> [fedRequest])`
`164`	`164`	`(ct, body) <-`
`165`	`165`	`fromException @MockException`
`166`	`166`	`. handle (throw . handleException)`