mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-18 02:43:40 +00:00
18 lines
464 B
Mathematica
18 lines
464 B
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et ft=mercury
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- module intermod_nested_module_bug2.sub.
|
|
|
|
:- interface.
|
|
|
|
:- type post == assoc_list(string).
|
|
|
|
:- pred read_post(cgi::in, maybe_error(post)::out, io::di, io::uo) is det.
|
|
|
|
:- implementation.
|
|
|
|
read_post(_CGI, error("foo"), !IO).
|
|
|
|
:- end_module intermod_nested_module_bug2.sub.
|