DBModule.fs

module DB

open System.Data.Common
open Dapper
open Rows
open Domain

let allProducts(connection: DbConnection) =

    let getProductType productType =
                match productType with
                | "Parcel" -> ProductType.Parcel
                | "WhiteGood" -> ProductType.WhiteGood
                | "XL" -> ProductType.XL
                | _ -> ProductType.XL
    try
        connection.Query<ProductRow>("select * from products")
        |> Seq.map(fun i-> new Product(i.ProductId, i.Name, i.Height, i.Weight, i.Length, i.Width, getProductType i.ProductType))
        |> fun i-> Ok(i)
    
    with
    | ex -> Error ex

//Other methods removed for brevity