F# 9 now allows returning bool from partial active patterns so here's another way of writing the same thing:
let (|GET|_|) x = x = HttpMethod.Get
let (|POST|_|) x = x = HttpMethod.Post
let m method =
match request.Method with
| GET -> "GET"
| POST -> "POST"
| _ -> ""