Remove unecessary use clauses (reported by GNAT 2018)

stcarrez · Jun 10, 2018 · d585dcb · d585dcb
1 parent 3ab227f
commit d585dcb
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 4 deletions.
diff --git a/src/security-contexts.adb b/src/security-contexts.adb
@@ -205,7 +205,6 @@ package body Security.Contexts is
                           Manager   : in Security.Policies.Policy_Manager_Access;
                           Principal : in Security.Principal_Access) is
       use type Security.Policies.Policy_Manager_Access;
-      use type Security.Principal_Access;
    begin
       if Manager /= null then
          Context.Manager   := Manager;

diff --git a/src/security-controllers-roles.adb b/src/security-controllers-roles.adb
@@ -1,6 +1,6 @@
 -----------------------------------------------------------------------
 --  security-controllers-roles -- Simple role base security
---  Copyright (C) 2011, 2012 Stephane Carrez
+--  Copyright (C) 2011, 2012, 2018 Stephane Carrez
 --  Written by Stephane Carrez (Stephane.Carrez@gmail.com)
 --
 --  Licensed under the Apache License, Version 2.0 (the "License");
@@ -29,8 +29,6 @@ package body Security.Controllers.Roles is
                             return Boolean is
       pragma Unreferenced (Permission);
 
-      use type Security.Principal_Access;
-
       P     : constant Security.Principal_Access := Context.Get_User_Principal;
       Roles : Security.Policies.Roles.Role_Map;
    begin