FunctionalProductDimensonsUpdate.fs

module UpdateProductDimensions

open Domain
open System

let find (productId:int, products: seq<Product>):Option<Product> =
    products
    |> Seq.tryPick<Product, Product>(fun x-> if x.ProductId = productId then Some(x) else None)

let update (productOption: Option<Product>, height, length, weight, width)=
    match productOption with 
    | Some product -> Ok(product.updateDimensions (height, length, weight, width))
    | None _ -> Error(new Exception("Product does not exist"))