%-----------------------------------------------------------------------------% :- module fe. :- interface. :- import_module io. :- func make_io_error(string) = io.res. %-----------------------------------------------------------------------------% %-----------------------------------------------------------------------------% :- implementation. % WORKS % :- pragma foreign_export("C", fe.make_io_error(in) = out, "OAMQ_make_io_error"). :- pragma foreign_export("C", make_io_error(in) = out, "OAMQ_make_io_error"). make_io_error(Message) = io.error(Error) :- Error = io.make_io_error(Message). %-----------------------------------------------------------------------------% % vim: ft=mercury ts=8 sts=4 sw=4 et