Shell: fix test network creation

2018-05-10 16:39:54 +02:00 · 2018-05-10 16:39:54 +02:00 · ccad901f33
commit ccad901f33
parent a0a2d6b004
1 changed files with 4 additions and 1 deletions
--- a/src/lib_shell/state.ml
+++ b/src/lib_shell/state.ml
@ -885,7 +885,10 @@ end
 let may_create_chain state chain genesis =
  Chain.get state chain >>= function
  | Ok chain -> Lwt.return chain
-  | Error _ -> Chain.create state genesis
+  | Error _ ->
+      Chain.create
+        ~allow_forked_chain:true
+        state genesis

 let read
    ?patch_context