blob: 94392eb51bb36a5e2b2a8d5281ccc7b24ad3f558 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
namespace Aamukampa.Web.Views
open System
open Falco.Markup
open Elem
open Attr
open Text
open Aamukampa.Core
module Document =
let view documentBody =
html [ lang "fi" ] [
head [] [
meta [ charset "utf-8" ]
meta [ name "viewport"; content "width=device-width" ]
Elem.title [] [ raw "Aamukampa" ]
link [ rel "stylesheet"; href (sprintf "%s%s" Config.pathBase "styles.css") ]
script [ type' "module"; src (sprintf "%s%s" Config.pathBase "app.js") ] []
]
body [] [
documentBody
]
]
|
