diff options
| author | Adelyn Breelove <[email protected]> | 2019-02-19 12:37:31 -0700 |
|---|---|---|
| committer | Adelyn Breelove <[email protected]> | 2019-02-19 12:37:31 -0700 |
| commit | 68845a21ffc5ac189fffbcb3d3f73465662186c4 (patch) | |
| tree | 2ac1e3875c00443797201bb8c6817b48839e325c | |
| parent | Fix to_seq_from implementation (diff) | |
| download | disml-68845a21ffc5ac189fffbcb3d3f73465662186c4.tar.xz disml-68845a21ffc5ac189fffbcb3d3f73465662186c4.zip | |
forgot to include the current elt
| -rw-r--r-- | lib/models/permissions.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/models/permissions.ml b/lib/models/permissions.ml index ef27d84..1521a0e 100644 --- a/lib/models/permissions.ml +++ b/lib/models/permissions.ml @@ -41,7 +41,7 @@ let to_seq mask = elements mask |> List.to_seq let to_seq_from elt init = let _, _, r = split elt init in - elements r |> List.to_seq + elt :: elements r |> List.to_seq let add_seq seq init = List.of_seq seq |