gistfile1.txt

[<Sealed>]
type LongIdentWithTrivia(lid: LongIdent, dotRanges: range list, ?trivia: IdentTrivia option list) =
    let triviaStored =
        match trivia with
        | None -> ValueNone
        | Some l when l |> List.forall Option.isNone -> ValueNone
        | Some l -> ValueSome (Array.ofList l)
    let getTrivia() =
        match triviaStored with
        | ValueNone -> lid |> List.map (fun _ -> None)
        | ValueSome l -> Array.toList l
    member _.LongIdent = lid
    member _.DotRanges = dotRanges
    member _.IdentsTrivia = getTrivia()
    member _.IdentsWithTrivia = (lid, getTrivia()) ||> List.zip

[<AutoOpen>]
module LongIdentWithTriviaHelpers =
    let (|LongIdentWithDots|) (lid: LongIdentWithTrivia) = lid.LongIdent, lid.DotRanges