mirror of
https://github.com/SHOGGOTH-SECTOR/sica-fondt.git
synced 2026-07-31 16:16:26 +00:00
Delete monero_types.adb
why tf is this not in the correct organ
This commit is contained in:
parent
7b1e534cfa
commit
cdc7541f2f
@ -1,22 +0,0 @@
|
|||||||
package body Monero_Types is
|
|
||||||
pragma SPARK_Mode (On);
|
|
||||||
|
|
||||||
function Threshold_Reached
|
|
||||||
(Participants : Multisig_Participant_Array;
|
|
||||||
Required : Positive)
|
|
||||||
return Boolean
|
|
||||||
is
|
|
||||||
Count : Natural := 0;
|
|
||||||
begin
|
|
||||||
for P of Participants loop
|
|
||||||
if P.Status = Accepted then
|
|
||||||
Count := Count + 1;
|
|
||||||
end if;
|
|
||||||
if Count >= Required then
|
|
||||||
return True;
|
|
||||||
end if;
|
|
||||||
end loop;
|
|
||||||
return False;
|
|
||||||
end Threshold_Reached;
|
|
||||||
|
|
||||||
end Monero_Types;
|
|
||||||
Loading…
x
Reference in New Issue
Block a user