diff --git a/booster/library/Booster/JsonRpc.hs b/booster/library/Booster/JsonRpc.hs index 723d58bca8..63c44789ce 100644 --- a/booster/library/Booster/JsonRpc.hs +++ b/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 }