Improve error message for missing scopes
This commit is contained in:
parent
bf2b3cbebf
commit
e4aac2da97
|
@ -44,6 +44,8 @@ module DB = struct
|
||||||
Sexp.code_error "Scope.DB.find_by_name"
|
Sexp.code_error "Scope.DB.find_by_name"
|
||||||
[ "name" , Sexp.To_sexp.(option string) name
|
[ "name" , Sexp.To_sexp.(option string) name
|
||||||
; "context", Sexp.To_sexp.string t.context
|
; "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 =
|
let create ~scopes ~context ~installed_libs internal_libs =
|
||||||
|
|
Loading…
Reference in New Issue