rostgaard

WITH queue_status AS (
     SELECT 
        message.id AS message_id, count(mq.id) > 0 AS enqueued
     FROM 
        message_queue mq 
     RIGHT JOIN 
        messages message ON message.id = mq.message_id
     GROUP BY 
       message.id
     ),

rostgaard

Keybase proof

I hereby claim:

• I am rostgaard on github.
• I am rostgaard (https://keybase.io/rostgaard) on keybase.
• I have a public key whose fingerprint is C673 EC3B E04D FA1D CE93 467F A459 1BD1 2193 AC9B

To claim this, I am signing this object:

rostgaard

with Client; use Client;
package Fun is 
   type Persistance_Type is (Once, Always, Never);
   
   type Event_Handler is abstract tagged
      record
         Persistance : Persistance_Type;
      end record;
   procedure Set (This        : in out Event_Handler;
                  Persistance : in Persistance_Type);

rostgaard

with Ada.Containers.Ordered_Maps;

package Some_Interfaces is 
   type Storage_Object is abstract tagged null record;
   type Storage_Object_Access is access all Storage_Object;
   
   type Call_ID_Type is mod 2**32;
   
   type Call_Type is new Storage_Object with 
      record

rostgaard

with LDAP_Client;
with LDAP_Thin;
with Ada.Strings.Unbounded;
with Ada.Text_IO;

with GNATCOLL.JSON;

procedure Test is
   use Ldap_Client;
   use Ada.Text_IO;