mirror of
https://github.com/AdaCore/markdown.git
synced 2026-02-12 13:11:15 -08:00
22 lines
426 B
Ada
22 lines
426 B
Ada
--
|
|
-- Copyright (C) 2021-2024, AdaCore
|
|
--
|
|
-- SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
|
|
--
|
|
|
|
package body Markdown.Blocks.Internals is
|
|
|
|
---------
|
|
-- Set --
|
|
---------
|
|
|
|
procedure Set
|
|
(Self : in out Block;
|
|
Data : Markdown.Implementation.Abstract_Block_Access) is
|
|
begin
|
|
pragma Assert (not Is_Assigned (Self.Data));
|
|
Self.Data := Data;
|
|
end Set;
|
|
|
|
end Markdown.Blocks.Internals;
|