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.Frontend/App.fs | |
| parent | 6b46930cfd23c59a359460c84085e9333aea4521 (diff) | |
Rebrand to Aamukampa
Diffstat (limited to 'TJLaskuri.Frontend/App.fs')
| -rw-r--r-- | TJLaskuri.Frontend/App.fs | 33 |
1 files changed, 0 insertions, 33 deletions
diff --git a/TJLaskuri.Frontend/App.fs b/TJLaskuri.Frontend/App.fs deleted file mode 100644 index c83ed6a..0000000 --- a/TJLaskuri.Frontend/App.fs +++ /dev/null @@ -1,33 +0,0 @@ -open System -open Browser.Dom -open TJLaskuri.Core - -DateTime.Now -|> printfn "It is %O" - -let k = kontingent 2 2025 -let st = ThreeFourSeven - -let currentTime = - // DateTime(2025, 7, 5) - // DateTime(2026, 6, 18) - // DateTime(2026, 6, 17) - 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<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 |