Format with fourmolu

Author: github-actions

booster/library/Booster/JsonRpc.hs

@@ -606,10 +606,10 @@ execResponse mbDuration req (d, traces, rr) originalSubstitution unsupported = c
                     , logs
                     , state = toExecState p originalSubstitution unsupported Nothing Nothing
                     , nextStates =
-                        Just $
-                            map
-                                (\(_, muid, p', mrulePred) -> toExecState p' originalSubstitution unsupported (Just muid) mrulePred) $
-                                toList nexts
+                        Just
+                            $ map
+                                (\(_, muid, p', mrulePred) -> toExecState p' originalSubstitution unsupported (Just muid) mrulePred)
+                            $ toList nexts
                     , rule = Nothing
                     , unknownPredicate = Nothing
                     }