header.fs

let allTagsEndpoint = 
    pipeline {
      plug (fun next ctx -> task {
        let txt = TagList.Encoder tags |> Encode.toString 0
        ctx.SetContentType ("application/json")
        return! setBodyFromString txt next ctx
      })
      set_header "Content-Type" "application/json"
    }