File tree Expand file tree Collapse file tree 2 files changed +10
-4
lines changed Expand file tree Collapse file tree 2 files changed +10
-4
lines changed Original file line number Diff line number Diff line change @@ -11,7 +11,6 @@ constraints: any.Cabal ==3.6.3.0,
11
11
aeson -cffi +ordered-keymap,
12
12
any.aeson-pretty ==0.8.9,
13
13
aeson-pretty -lib-only,
14
- any.alex ==3.2.7.4,
15
14
any.ansi-terminal ==0.11.4,
16
15
ansi-terminal -example +win32-2-13-1,
17
16
any.ansi-wl-pprint ==0.6.9,
@@ -109,7 +108,6 @@ constraints: any.Cabal ==3.6.3.0,
109
108
any.gitrev ==1.3.1,
110
109
any.graphviz ==2999.20.1.0,
111
110
graphviz -test-parsing,
112
- any.happy ==1.20.1.1,
113
111
any.hashable ==1.4.2.0,
114
112
hashable +integer-gmp -random-initial-seed,
115
113
any.hashtables ==1.3.1,
Original file line number Diff line number Diff line change @@ -557,8 +557,16 @@ rpcExec
557
557
Rewritten _ -> GraphTraversal. Continuing next'
558
558
Remaining _ -> GraphTraversal. Stuck next'
559
559
Kore.Rewrite. Bottom -> GraphTraversal. Vacuous prior
560
- toTransitionResult prior (s : ss) =
561
- GraphTraversal. Branch prior $ fmap fst (s :| ss)
560
+ toTransitionResult prior rs =
561
+ case filter
562
+ ( \ (RpcExecState {rpcProgState}, _) -> case rpcProgState of
563
+ Kore.Rewrite. Bottom -> False
564
+ _ -> True
565
+ )
566
+ rs of
567
+ (s : ss) -> GraphTraversal. Branch prior $ fmap fst (s :| ss)
568
+ -- either empty or single result
569
+ other -> toTransitionResult prior other
562
570
563
571
setTraces ::
564
572
Seq (RewriteRule v , Seq SimplifierTrace ) -> Seq RuleTrace -> RpcExecState v -> RpcExecState v
You can’t perform that action at this time.
0 commit comments