ImpureFunctionAtTheBoundary.fs

open System.Data.SqlClient

[<EntryPoint>]
let main argv =
    let getDbConnection() =
        let connection =  new SqlConnection("a_real_sql_connection_string")
        connection.Open()
        connection
    
    let getAllProducts() =
        DB.allProducts (getDbConnection())
        |> fun x -> match x with 
                    | Ok p-> p|> Seq.toList
                    | Error e -> List.Empty
    

    let tryUpdateProductDimensions (productId: int)=
        getAllProducts()
        |> fun products -> UpdateProductDimensions.find (productId, products)
        |> fun product -> UpdateProductDimensions.update product