diff options
| author | Joel Stålnacke <joel@saker.fi> | 2025-08-02 18:25:14 +0300 |
|---|---|---|
| committer | Joel Stålnacke <joel@saker.fi> | 2025-08-02 18:25:14 +0300 |
| commit | 6b46930cfd23c59a359460c84085e9333aea4521 (patch) | |
| tree | 9d1d11838ee4e836c0338ef1ab338fe234fc7f4b /TJLaskuri.Frontend/App.fs | |
| parent | 40525e4f0ff494a3b5bf9cebad5d00ac25a3d840 (diff) | |
Initial frontend
Diffstat (limited to 'TJLaskuri.Frontend/App.fs')
| -rw-r--r-- | TJLaskuri.Frontend/App.fs | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/TJLaskuri.Frontend/App.fs b/TJLaskuri.Frontend/App.fs index d19c455..c83ed6a 100644 --- a/TJLaskuri.Frontend/App.fs +++ b/TJLaskuri.Frontend/App.fs @@ -9,25 +9,25 @@ let k = kontingent 2 2025 let st = ThreeFourSeven let currentTime = - DateTime(2025, 7, 5) + // DateTime(2025, 7, 5) // DateTime(2026, 6, 18) // DateTime(2026, 6, 17) - // DateTime.Today + DateTime.Today // DateTime.Now // Domain.getStartDate k |> Option.get -currentTime -|> Domain.getTimeLeft k st -|> function - | Some left -> - let el = document.createElement "p" - el.innerHTML <- sprintf "Tänään jäljellä:<br>%O" left.TotalDays - document.body.appendChild(el) |> ignore - | None -> - printfn "Error: unknown kontingent" - -let startDate = Domain.getStartDate k |> Option.get -let el = document.createElement "p" -el.innerHTML <- sprintf "Aloituspäivä: %O<br>Aamuja ohi %d" - startDate (Domain.getTimeCompleted k currentTime |> Option.get).Days -document.body.appendChild(el) |> ignore +// currentTime +// |> Domain.getTimeLeft k st +// |> function +// | Some left -> +// let el = document.createElement "p" +// el.innerHTML <- sprintf "Tänään jäljellä:<br>%O<br>aamua" left.TotalDays +// document.body.appendChild(el) |> ignore +// | None -> +// printfn "Error: unknown kontingent" +// +// let startDate = Domain.getStartDate k |> Option.get +// let el = document.createElement "p" +// el.innerHTML <- sprintf "Aloituspäivä: %O<br>Aamuja ohi %d" +// startDate (Domain.getTimeCompleted k currentTime |> Option.get).Days +// document.body.appendChild(el) |> ignore |