diff options
| author | Joel Stålnacke <joel@saker.fi> | 2025-08-02 18:28:44 +0300 |
|---|---|---|
| committer | Joel Stålnacke <joel@saker.fi> | 2025-08-02 18:28:44 +0300 |
| commit | 1790a3f5447907338cdbbfc9f44256cf74f36e31 (patch) | |
| tree | 2afa8a436075ef5be465ae21011696de6890a215 /TJLaskuri.Core/Library.fs | |
| parent | 6b46930cfd23c59a359460c84085e9333aea4521 (diff) | |
Rebrand to Aamukampa
Diffstat (limited to 'TJLaskuri.Core/Library.fs')
| -rw-r--r-- | TJLaskuri.Core/Library.fs | 27 |
1 files changed, 0 insertions, 27 deletions
diff --git a/TJLaskuri.Core/Library.fs b/TJLaskuri.Core/Library.fs deleted file mode 100644 index aa7b7ea..0000000 --- a/TJLaskuri.Core/Library.fs +++ /dev/null @@ -1,27 +0,0 @@ -namespace TJLaskuri.Core - -open System - -module Domain = - // TODO: More precise time: hours, minutes - // TODO: Time until service starts - - let getStartDate kontingent = - match serviceStartDates.TryGetValue(kontingent) with - | true, startDate -> Some startDate - | false, _ -> None - - let getEndDate kontingent serviceTime = - getStartDate kontingent - |> Option.map (fun startDate -> - ServiceTime.getDays serviceTime - |> fun x -> x - 1 // Count start date as well - |> startDate.AddDays) - - let getTimeCompleted kontingent (now : DateTime) = - getStartDate kontingent - |> Option.map (fun date -> now.AddDays(1) - date) - - let getTimeLeft kontingent serviceTime (now : DateTime) = - getEndDate kontingent serviceTime - |> Option.map (fun date -> date - now) |