Shards simple http server

http-server.shs

@mesh(root)

@define(headers {
  "Cross-Origin-Opener-Policy": "same-origin"
  "Cross-Origin-Embedder-Policy": "require-corp"
})

@wire(handler {
  Http.Read = request
  Take("target") >= target

  ; filter out query params
  Regex.Search("""(.*)\?""") = matches
  Count(matches) | When(Is(2) {matches | Take(1) > target})

  target | Log("target")
  Match([
    "/" {"/simple_playback_sine.html" | Http.SendFile(@headers)}
    none {target | Http.SendFile(@headers)}
  ])
} Looped: true)

@wire(server {
  Http.Server(handler)
} Looped: true)

@schedule(root server)
@run(root 0.1)