C4L_Module_WL1.fsx

type Module =
    | StartPos
    | Samples    // <------------------- New Union Case
    | Diagnosis
    | Molecules
    | Laboratory
    static member Create moduleName =
        match moduleName with
        | "START_POS"  -> Module.StartPos
        | "SAMPLES"    -> Module.Samples    // <------------------- New Union Case
        | "DIAGNOSIS"  -> Module.Diagnosis
        | "MOLECULES"  -> Module.Molecules
        | "LABORATORY" -> Module.Laboratory
        | name         -> failwithf "Unknown module type: %s" name
    override x.ToString () =
        match x with
        | StartPos   -> "START_POS"
        | Samples    -> "SAMPLES"    // <------------------- New Union Case
        | Diagnosis  -> "DIAGNOSIS"
        | Molecules  -> "MOLECULES"
        | Laboratory -> "LABORATORY"