- | Default => (write "*@";
- write (Domain.currentDomain ());
- write ": ";
- writeTarget (write, t);
- write "\n")
- | CatchAll => (writeD "*@";
- writeD (Domain.currentDomain ());
- writeD ": ";
- writeTarget (writeD, t);
- writeD "\n")
+ | Default => (writeD "*@";
+ writeDomD ();
+ writeD ": ";
+ writeTarget (writeD, t);
+ writeD "\n")