[server] fix server doc

src/plugins/server/server_doc.ml

@@ -195,12 +195,11 @@ let descr_of_decl names decl =
 
 let declaration page names decl =
   match decl.d_kind with
-  | D_decoder _ | D_order _ -> ()
+  | D_decoder _ | D_order _ | D_default _ -> ()
   | _ ->
     let name = decl.d_ident.name in
     let fullname = name_of_ident decl.d_ident in
     let kind = kind_of_decl decl.d_kind in
-    (* let title = Printf.sprintf "`%s` %s" kind fullname in *)
     let title = Printf.sprintf "%s (`%s`)" fullname kind in
     let index = [ title ] in
     let contents = Markdown.par decl.d_descr in