aboutsummaryrefslogtreecommitdiff
path: root/TJLaskuri.Web/Modules/Index.fs
diff options
context:
space:
mode:
authorJoel Stålnacke <joel@saker.fi>2025-08-02 18:28:44 +0300
committerJoel Stålnacke <joel@saker.fi>2025-08-02 18:28:44 +0300
commit1790a3f5447907338cdbbfc9f44256cf74f36e31 (patch)
tree2afa8a436075ef5be465ae21011696de6890a215 /TJLaskuri.Web/Modules/Index.fs
parent6b46930cfd23c59a359460c84085e9333aea4521 (diff)
Rebrand to Aamukampa
Diffstat (limited to 'TJLaskuri.Web/Modules/Index.fs')
-rw-r--r--TJLaskuri.Web/Modules/Index.fs31
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