WoofWare.Myriad/WoofWare.Myriad.Plugins/SynExpr/CompExpr.fs

namespace WoofWare.Myriad.Plugins

open Fantomas.FCS.Syntax

type internal CompExprBinding =
    | LetBang of varName : string * rhs : SynExpr
    | Let of varName : string * rhs : SynExpr
    | Use of varName : string * rhs : SynExpr
    | Do of body : SynExpr

(*
Potential API!
type internal CompExprBindings =
    private
        {
            /// These are stored in reverse.
            Bindings : CompExprBinding list
            CompExprName : string
        }

[<RequireQualifiedAccess>]
module internal CompExprBindings =
    let make (name : string) : CompExprBindings =
        {
            Bindings = []
            CompExprName = name
        }

    let thenDo (body : SynExpr) (bindings : CompExprBindings) =
        { bindings with
            Bindings = (Do body :: bindings.Bindings)
        }

    let thenLet (varName : string) (value : SynExpr) (bindings : CompExprBindings) =
        { bindings with
            Bindings = (Let (varName, value) :: bindings.Bindings)
        }

    let thenLetBang (varName : string) (value : SynExpr) (bindings : CompExprBindings) =
        { bindings with
            Bindings = (LetBang (varName, value) :: bindings.Bindings)
        }


    let thenUse (varName : string) (value : SynExpr) (bindings : CompExprBindings) =
        { bindings with
            Bindings = (LetBang (varName, value) :: bindings.Bindings)
        }
*)