Function matchPartF

matchPartF<A, R>(
    empty: R,
    text: (s: string) => R,
    row: (
        row: {
            _tag: "RowF";
            bottom: Draw.VStrut;
            cells: A[];
            hAlign: "left" | "right" | "center";
            left: Draw.HStrut;
            right: Draw.HStrut;
            top: Draw.VStrut;
            vAlign: "top" | "bottom" | "middle";
        },
    ) => R,
    column: (
        column: {
            _tag: "ColumnF";
            cells: A[];
            hAlign: "left" | "right" | "center";
            left: Draw.HStrut;
            right: Draw.HStrut;
        },
    ) => R,
): (
    part:
        | {
            _tag: "RowF";
            bottom: Draw.VStrut;
            cells: A[];
            hAlign: "left"
            | "right"
            | "center";
            left: Draw.HStrut;
            right: Draw.HStrut;
            top: Draw.VStrut;
            vAlign: "top" | "bottom" | "middle";
        }
        | {
            _tag: "ColumnF";
            cells: A[];
            hAlign: "left"
            | "right"
            | "center";
            left: Draw.HStrut;
            right: Draw.HStrut;
        }
        | { _tag: "EmptyF" }
        | { _tag: "TextF"; show: string },
) => R