如何对付运行时可能为 null 的 Record Type

在 F# 中，Record Type 是没法表达 null 语义的，例如，一个 Record 变量不可以使用 null 字面量赋值，接收 nullable（这里并非指 BCL 中的 Nullable<T> 类型，而是指 C# 8.0 以前的引用类型）做为参数的函数不能使用 Record 做为参数：

type Foo = {Id: string}

let foo: Foo = null // 编译错误
let foo = {Id: "2333"}  // 编译经过
let fooOp = Option.ofObj foo    // 编译错误

F# 的设计者可能认为 Record 做为一个典型的函数式语言特性，使用 option 来表达 nullable 会更加 Functional，因此就禁止了 Record 与 null 的直接转换。这种愿景很是美好，可是实际上大部分的 .Net 生态环境都是使用 C# 来构建的，好比 Linq。下面的一段代码就会在 F# 中引起可怕的“空引用异常”：

open System.Linq

let foos: Foo list = []
let nill = foos.FirstOrDefault()
//> let nill: Foo

prinrf "%A" nill.Id //<-- 空引用异常

能够看到，FirstOrDefault 的返回值尽管是 Foo 类型，可是在运行时其结果永远都是 null，又由于 F# 禁止了 Record 与 null 相关的比较操做，因此此处没法直接进行判断结果是否为 null。

我采用的作法就是进行类型转换，首先将 Record 类型转换成 obj，而后判断此处的引用是否为 null：

module Option

let ofRecord r =
    match box r with
    | null -> None
    | _ -> Some r

由于 F# 中的 Record 类型底层就是使用引用类型来实现的，因此这里并不会产生真正的装箱操做，对性能的影响并不会太大。