mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-18 02:43:40 +00:00
27 lines
640 B
Mathematica
27 lines
640 B
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et ft=mercury
|
|
%---------------------------------------------------------------------------%
|
|
%
|
|
% rotd-2010-01-25 and before were incorrectly reporting that the import
|
|
% of the module bug100_2 in the interface was unused.
|
|
%
|
|
|
|
:- module bug100.
|
|
:- interface.
|
|
|
|
:- import_module bug100_3.
|
|
:- import_module unit.
|
|
|
|
% We need this import to get that tc2(unit) superclass constraint
|
|
% is satisfied.
|
|
%
|
|
:- import_module bug100_2.
|
|
|
|
:- typeclass tc(T) <= tc2(T) where [].
|
|
|
|
:- instance tc(unit).
|
|
|
|
:- implementation.
|
|
|
|
:- instance tc(unit) where [].
|