mirror of
https://github.com/AdaCore/markdown.git
synced 2026-02-12 13:11:15 -08:00
22 lines
420 B
Ada
22 lines
420 B
Ada
--
|
|
-- Copyright (C) 2021-2023, AdaCore
|
|
--
|
|
-- SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
|
|
--
|
|
|
|
package body Markdown.Documents.Internals is
|
|
|
|
---------
|
|
-- Set --
|
|
---------
|
|
|
|
procedure Set
|
|
(Self : in out Document;
|
|
Data : in out Markdown.Implementation.Abstract_Container_Block'Class)
|
|
is
|
|
begin
|
|
Self.Data := Data'Unchecked_Access;
|
|
end Set;
|
|
|
|
end Markdown.Documents.Internals;
|