aboutsummaryrefslogtreecommitdiffstats
path: root/lib/planner.ml
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--lib/planner.ml2
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/planner.ml b/lib/planner.ml
index c66e46b..8127c41 100644
--- a/lib/planner.ml
+++ b/lib/planner.ml
@@ -162,6 +162,8 @@ module Executor = struct
open Disk.Executor
let perform (commit : Executor.commit) (locations : Executor.locations) (command : Command.t) =
match command with
+ | State ->
+ Ok ((commit, locations), Command.Schema (StringMap.to_list commit.schema))
| Nest {relation_name;} ->
let results = Join.nest commit locations relation_name in
Ok ((commit, locations), Command.Read results)