C4L_Module.fsx

type Module =
    | StartPos
    | Diagnosis
    | Molecules
    | Laboratory
    static member Create moduleName =
        match moduleName with
        | "START_POS"  -> Module.StartPos
        | "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"
        | Diagnosis  -> "DIAGNOSIS"
        | Molecules  -> "MOLECULES"
        | Laboratory -> "LABORATORY"