diff options
Diffstat (limited to 'lib/kernel/Namespace.ml')
| -rw-r--r-- | lib/kernel/Namespace.ml | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/kernel/Namespace.ml b/lib/kernel/Namespace.ml index 7c9cd2b..20f83f5 100644 --- a/lib/kernel/Namespace.ml +++ b/lib/kernel/Namespace.ml @@ -38,12 +38,14 @@ class namespace = object (self) method list = Atomic.get entries |> BatMap.keys - |> BatList.of_enum + |> BatFingerTree.of_enum + |> Result.ok method find key = Atomic.get entries |> BatMap.find_opt key |> Utilities.Option.fmap Protocols.Handle.copy + |> Result.ok end -let make () = new namespace +let make () = Protocols.Handle.make (new namespace) |