From 6b1d8a59f03778cad959d2467ea92fb950f953ab Mon Sep 17 00:00:00 2001
From: Folkert Kevelam <contact@pyllr.nl>
Date: Fri, 23 May 2025 18:15:01 +0200
Subject: [PATCH] Rename Package to reduce text

---
 source/pandoc.ads | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/source/pandoc.ads b/source/pandoc.ads
index 0685011..19774a7 100644
--- a/source/pandoc.ads
+++ b/source/pandoc.ads
@@ -1,13 +1,16 @@
 with Ada.Containers;
 with Ada.Containers.Hashed_Maps;
-with League.Strings;
-with League.JSON;
 with League.JSON.Objects;
+with League.Strings;
 
 package Pandoc is
 
+   Pandoc_Type_Error : exception;
+
    package Ustr renames League.Strings;
 
+   type Ustr_Array is array (Natural range <>) of Ustr.Universal_String;
+
    type Object_Type is (
      Block_Plain,
      Block_Para,
@@ -56,6 +59,9 @@ package Pandoc is
 
 private
 
+   function Hash (Item : Ustr.Universal_String)
+     return Ada.Containers.Hash_Type;
+
    Obj_String_Representation :
      constant array (Object_Type) of Ustr.Universal_String := (
       +"Plain",
@@ -94,9 +100,6 @@ private
       +"Span"
     );
 
-   function Hash (Item : Ustr.Universal_String)
-     return Ada.Containers.Hash_Type;
-
    package Type_Map is new Ada.Containers.Hashed_Maps (
      Key_Type => Ustr.Universal_String,
      Element_Type => Object_Type,