Improve error message for missing scopes

2018-03-02 15:46:29 +07:00 · 2018-03-02 15:46:29 +07:00 · e4aac2da97
parent bf2b3cbebf
commit e4aac2da97
1 changed files with 2 additions and 0 deletions
--- a/src/scope.ml
+++ b/src/scope.ml
@ -44,6 +44,8 @@ module DB = struct
      Sexp.code_error "Scope.DB.find_by_name"
        [ "name"   , Sexp.To_sexp.(option string) name
        ; "context", Sexp.To_sexp.string t.context
+        ; "names",
+          Sexp.To_sexp.(list (option string)) (Scope_name_map.keys t.by_name)
        ]

  let create ~scopes ~context ~installed_libs internal_libs =