11 lines
175 B
Forth
11 lines
175 B
Forth
module DredgePos.Global.Router
|
|
|
|
open Saturn
|
|
open Giraffe
|
|
|
|
let htmlViewWithContext func =
|
|
(fun ctx ->
|
|
func (snd ctx)
|
|
|> htmlView
|
|
)
|
|
|> warbler |