open Lib
open Git.Model
open Git.Backend

let () =
  let t = Git.Store.create (File.Dirname.of_string ".git") in
  Git.Store.dump t;
  Git.View.to_dot t (File.Name.of_string "graph.dot")

open GitTypes

let () =
  let t = GitLocal.create () in
  GitLocal.dump t;
  GitGraph.to_dot t "graph.dot"

Fix the compilation of test.
Fix the compilation of test.

Seems that they still seem to work!
