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.Web/Modules/Index.fs | |
| parent | 6b46930cfd23c59a359460c84085e9333aea4521 (diff) | |
Rebrand to Aamukampa
Diffstat (limited to 'TJLaskuri.Web/Modules/Index.fs')
| -rw-r--r-- | TJLaskuri.Web/Modules/Index.fs | 31 |
1 files changed, 0 insertions, 31 deletions
diff --git a/TJLaskuri.Web/Modules/Index.fs b/TJLaskuri.Web/Modules/Index.fs deleted file mode 100644 index 7623779..0000000 --- a/TJLaskuri.Web/Modules/Index.fs +++ /dev/null @@ -1,31 +0,0 @@ -module TJLaskuri.Web.Modules.Index - -open System -open Falco -open TJLaskuri.Core - -[<AutoOpen>] -module Views = - open TJLaskuri.Core.Views - - type Model = { - Counter : Main.Model - } - - let view model = - Main.view model.Counter - |> Document.view - -let get : HttpHandler = - fun ctx -> - let time = DateTime.Now - let kontingent = kontingent 2 2025 - let timeLeft = Domain.getTimeLeft kontingent ThreeFourSeven time |> Option.get - let completed = Domain.getTimeCompleted kontingent time |> Option.get - - view { - Counter = { - TimeLeft = timeLeft - TimeCompleted = completed - } - } |> Response.ofHtml <| ctx |
