diff options
| author | Estevan Castilho <tevo@riajuu.net> | 2026-08-27 01:35:53 +0000 |
|---|---|---|
| committer | Estevan Castilho <tevo@riajuu.net> | 2026-08-27 01:41:12 +0000 |
| commit | e61404f0219cd8f07c6c278f7ee952c70ce5bdf4 (patch) | |
| tree | 412aa6ca71df835fb154427a32bb2573944faa8a /lib/Utilities.ml | |
| parent | 9efb32195a905de2d66ce29164cc22970833c2d7 (diff) | |
| download | RNT-e61404f0219cd8f07c6c278f7ee952c70ce5bdf4.tar.gz RNT-e61404f0219cd8f07c6c278f7ee952c70ce5bdf4.zip | |
Branch serialization
Diffstat (limited to 'lib/Utilities.ml')
| -rw-r--r-- | lib/Utilities.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/Utilities.ml b/lib/Utilities.ml index e4ee9c3..9bff69b 100644 --- a/lib/Utilities.ml +++ b/lib/Utilities.ml @@ -39,6 +39,10 @@ module List = struct end include Generic (ListSequence) + + let hd_opt = function + | x::_ -> Some x + | [] -> None end module FingerTree = struct |