agpl_1.0.0_b5da3320/src/agpl-http/agpl-http-server-sort_handler-aux.ads

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
with Ada.Containers.Doubly_Linked_Lists;

with System;

private package Agpl.Http.Server.Sort_handler.Aux is

   --  This ugly workaround is needed because I can't instantiate a Charles
   --  package using a generic type within a generic body.
   package Address_lists is new Ada.Containers.Doubly_Linked_Lists (
      System.Address, System."=");

end Agpl.Http.Server.Sort_handler.Aux;