Style Question: normal record vs discriminated null-record.

[Shark8 <OneWingedShark@gmail.com>]

Ok, given some sort of alert-system (meaning there shouldn't be any/much 
in the way of value manipulation of those objects) is it preferable to 
use a discriminated null-record or a record with normal components?


     Type Grievousness is (Warning, Error);
     Type Circumstance is (Expired_Data, Bad_Request, Malformed_Data);

     Type Alert_1(Severity : Grievousness; Condition :  Circumstance) is
     null record;

     Type Alert_2 is record
         Severity  : Grievousness;
         Condition : Circumstance;
     end record;