Minor

[tatoo.git] / src / test.ml

diff --git a/src/test.ml b/src/test.ml
index f20e471..e6cd725 100644 (file)
--- a/src/test.ml
+++ b/src/test.ml
@@ -52,8 +52,8 @@ let compute_run doc query =
   run
 
 let () =
-  let query = query () in
   let doc = doc () in
+  let query = query () in
   let asta = build_asta query in
   let run = compute_run doc asta in
   fprintf err_formatter "@[<v 0>##### Query #####@.  %a@]\n"