package coq-lsp
Language Server Protocol native server for Coq
Install
Dune Dependency
Authors
Maintainers
Sources
coq-lsp-0.2.0.8.18.tbz
sha256=ba40f92f4c751793265d20f1c217638146e4714e0196a0d2b00c9ed58774abf6
sha512=0b7c1d98e22017e44d90461ee61081043401387251488ee7113668d24f6a463dca4ce690e30355248a949817c6b8f8a0944489c4d9b66bd239d903a089a1f11f
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))