Fix compilation error on GNAT CE 2021.

godunko · Jun 27, 2021 · 1be07b0 · 1be07b0
1 parent 7be4cbd
commit 1be07b0
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/design/forum/awfc/awfc-page_generators.adb b/design/forum/awfc/awfc-page_generators.adb
@@ -8,7 +8,7 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 --                                                                          --
--- Copyright © 2015-2019, Vadim Godunko <[email protected]>                --
+-- Copyright © 2015-2021, Vadim Godunko <[email protected]>                --
 -- All rights reserved.                                                     --
 --                                                                          --
 -- Redistribution and use in source and binary forms, with or without       --
@@ -54,6 +54,8 @@ with XML.SAX.String_Output_Destinations;
 
 package body AWFC.Page_Generators is
 
+   use type League.Strings.Universal_String;
+
    function "+"
     (Item : Wide_Wide_String) return League.Strings.Universal_String
        renames League.Strings.To_Universal_String;
@@ -328,7 +330,6 @@ package body AWFC.Page_Generators is
 
       procedure Process_Head is
          use Constants;
-         use type League.Strings.Universal_String;
 
          Title_Item : XML_Stream_Element;
          Title_Text : League.Strings.Universal_String;