--  Copyright (C) Simon Wright <simon@pushface.org>

--  This unit is free software; you can redistribute it and/or modify
--  it as you wish. This unit is distributed in the hope that it will
--  be useful, but WITHOUT ANY WARRANTY; without even the implied
--  warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

--  ColdFrame expects this procedure to exist to allow errors to be
--  reported (for example, exceptions during domain Initialize
--  procedures).
--
--  This is ColdFrame's default implementation.

with ColdFrame.Project.Logging_Support;

procedure ColdFrame.Project.Log_Error (Message : String) is
begin
   ColdFrame.Project.Logging_Support.Log
     (Severity => Logging_Support.Error,
      Message => Message);
end ColdFrame.Project.Log_Error;
