smouldering-beach-ball/SmoulderingBeachBall/Services.fs

namespace SmoulderingBeachBall

module Services =

    open System
    open SmoulderingBeachBall.Domain.DomainTypes
    open InternalServices.Validation
    open InternalServices.Drawing

    let makeImage (spec: ImageSpec) =
        async {
            try
                printfn "[INFO.] Attempting to make image..."
                validateDimension spec.width
                validateDimension spec.height
                validateDirectory spec.filePath
                drawImage spec
                printfn "[SUCCESS] Image creation attempt complete."
                return ()
            with
            | :? ArgumentException as ex -> printfn "%s" ex.Message
            | _ as ex -> printfn "%s" ex.Message
        }