Generate midnight and random time during the day

midnight.elm

{-| Returns a random time and the midnight time in a TimeZone
-}
fuzzMidnightAndToday : Time.Zone -> Fuzz.Fuzzer ( Time.Zone, Time.Posix, Time.Posix )
fuzzMidnightAndToday timezone =
    let
        currentTimeInDays : Time.Posix -> Duration.Duration
        currentTimeInDays currentTime =
            let
                conversionFunc toTime inTime =
                    toTime timezone currentTime
                        |> (toFloat >> inTime)
                        |> Duration.inDays
            in
            List.sum
                [ conversionFunc Time.toHour Duration.hours
                , conversionFunc Time.toMinute Duration.minutes
                , conversionFunc Time.toSecond Duration.seconds
                , conversionFunc Time.toMillis Duration.milliseconds
                ]
                |> Duration.days
    in
    Fuzz.map
        (\currentTime ->
            let
                midnightDay =
                    let
                        numDays =
                            currentTimeInDays currentTime
                                |> Duration.inDays

                        daysPassedMidnight =
                            numDays
                                |> (\flooredDays ->
                                        numDays - (floor flooredDays |> toFloat)
                                   )
                                |> Duration.days
                    in
                    Duration.subtractFrom currentTime daysPassedMidnight
            in
            ( timezone, midnightDay, currentTime )
        )
        fuzzTime