atagen/culr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

use funny operator

Browse Source
This commit is contained in:
atagen 2024-12-03 14:05:09 +11:00
parent 781b2adde6
commit 5dc38987d9
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/env.ml
View File

@ -1,8 +1,7 @@
open Seq
let to_sixteen f = ints 0 |> take 16 |> f |> Array.of_seq
let ( >>= ) = Option.bind
let mem = Fun.flip Array.mem
let (=?)= Array.mem
let colours =
let init_default = to_sixteen (map (fun x -> Types.Simple x)) in
@ -11,7 +10,7 @@ let colours =
|> Option.fold ~none:init_default ~some:Parse.parse_env_colours
let order =
let init_default = to_sixteen (filter (fun i -> i |> mem [| 0; 8 |])) in
let init_default = to_sixteen (filter (fun i -> i =? [| 0; 8 |])) in
Sys.getenv_opt "CULR_ORDER"
>>= (fun s -> if String.length s > 0 then Some s else None)
|> Option.fold ~none:init_default ~some:Parse.parse_env_order