DI F#

types.fs

namespace Muffin.Pictures.Archiver

open System

module Picture =

    type IsOldDefinition = DateTimeOffset -> bool
    type TimeTakenRetriever = string -> DateTimeOffset
    type PathExistenceChecker = string -> bool

    type PictureInfo =
        {
        Taken:DateTimeOffset;
        Path:string
        }

    type Picture =
        | Picture of PictureInfo

    let private createPicture timeTaken isOld (path:string) =
        let taken = timeTaken path
        if taken |> isOld
            then Some (Picture {Taken=taken; Path=path})
            else None

    let create (pathExists:PathExistenceChecker) (timeTaken:TimeTakenRetriever) (isOldDefinition:IsOldDefinition) (path:string) =
        if pathExists path
            then createPicture timeTaken isOldDefinition path
            else None