📦 sleepyfran / duets

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22module Duets.Common.Option

/// Returns the value of the given option if it is some and throws an exception
/// otherwise.
let value opt =
    match opt with
    | Some x -> x
    | None -> failwith "Option is None"

/// Returns a unit option as some if the given boolean is true and None otherwise.
let ofBool res =
    match res with
    | true -> Some()
    | false -> None

/// Returns a non-empty list option as some if the given list is not empty and
/// None otherwise.
let ofList xs =
    match xs with
    | [] -> None
    | _ -> Some xs