package coq-lsp
Language Server Protocol native server for Coq
Install
Dune Dependency
Authors
Maintainers
Sources
coq-lsp-0.2.2.8.17.tbz
sha256=64c07c21284a6cf18c9c79fd614f188ebc552dd7a783a00e51c14cca8d062d07
sha512=9cc3efad65f5896af847880b74833c50897a7e4eba34f61e34b3c5136e237f53c6c38252aeb553b932d26e6b5b252631e758d8a8994c2b7c12cfa989fd5686ff
doc/src/coq-lsp.serlib/ser_sList.ml.html
Source file ser_sList.ml
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37(************************************************************************) (* v * The Coq Proof Assistant / The Coq Development Team *) (* <O___,, * INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2016 *) (* \VV/ **************************************************************) (* // * This file is distributed under the terms of the *) (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) (************************************************************************) (* Coq serialization API/Plugin *) (* Copyright 2022 Inria *) (************************************************************************) open Sexplib.Std open Ppx_hash_lib.Std.Hash.Builtin open Ppx_compare_lib.Builtin module SL = struct type 'a _t = | Nil | Cons of 'a * 'a _t | Default of int * 'a _t [@@deriving sexp,yojson,hash,compare] type 'a t = 'a SList.t end include SerType.Pierce1(SL) let rec _map f = function | SL.Nil -> SL.Nil | SL.Cons (x, xs) -> SL.Cons (f x, _map f xs) | SL.Default (n, l) -> SL.Default (n, _map f l) let map (f : 'a -> 'b) (x : 'a SList.t) : 'b SList.t = Obj.magic (_map f (Obj.magic x))