module Main where

import Prelude

import Bun.Server as Bun
import Data.Maybe (Maybe)
import Effect (Effect)
import Effect.Aff (Aff)
import Effect.Console (log)
import PureStack.Route (type (/), GET, Headers(..), Middleware, POST)
import PureStack.Route as Router
import PureStack.Server as Server
import Run (AFF, Run(..), runBaseAff)
import Type.Row (type (+))

type Foo = { a :: String, b :: Maybe Int, c :: Array Number }

type API =
  ( foo :: "foo" / "bar" / Foo / GET Unit { a :: Int, b :: Number, c :: Foo }
  , bar :: "foo" / Middleware "auth" / "qux" / POST (Headers { foo :: String } Unit) { a :: Int, s :: String }
  , deep ::
      "deep" /
        ( something :: "something" / GET Unit { a :: String }
        )
  )

main :: Effect Unit
main = do
  log "🍝"
  Bun.serve $ Server.run @API identity
    { handlers:
        { foo: \x -> pure { a: 1, b: 1.0, c: x }
        , bar: \i (Headers x _) -> pure { a: 8, s: x.foo }
        , deep: { something: pure { a: "something" } }
        }
    , middlewares: { auth: \req -> pure 1 }
    }