Avoid early return on non-zero gerror

This commit is contained in:
R. Tyler Croy 2017-01-19 16:33:27 -08:00
parent 7facf45d44
commit e3d854e7aa
No known key found for this signature in database
GPG Key ID: 1426C7DC3F51E16F
1 changed files with 3 additions and 1 deletions

View File

@ -67,7 +67,9 @@ package body Arun is
return;
elsif Return_Code /= 0 then
Put_Line ("Error " & Return_Code'Image);
return;
-- In normal operations this returns a "1" error, not yet sure what that
-- relates to.
-- return;
end if;
Register_Handler (Builder => Builder,