simple hello world server in F#

handlers.fs

namespace MyApp

open Sol.Context

module Middlewares =

  let authenticateAdmin next ctx =

    let isAdmin = hasQueryParam "is_admin" ctx

    if isAdmin then
      next ctx
    else
      ctx |> setStatusCode 403 |> writeText "Access Denied"

module Handlers =

  let getHome ctx =
    ctx |> write "welcome home..."

  let getArtist ctx =
    let artistId = getRouteParam "artist_id" ctx
    ctx |> writeText $"got artist: {artistId}"
    

main.fs

// App Entry
namespace MyApp

module Program =
  open Sol.Server

  [<EntryPoint>]
  let main args =
    genServer()
    |> setPort 3007
    |> setRoutes Routes.routes
    |> run

    0

routes.fs

namespace MyApp

module Routes =
  open Middlewares
  open Handlers
  open Sol.Route

  let routes = [
    // run authentication and them getHome if successful
    get "/" (authenticateAdmin <| getHome);
    get "/admin/{artist_id}" getArtist
  ]