-- | Transforms a message into an arrow
transformMessage :: Message -> Arrow
transformMessage m = Arrow (sender m) (receiver m)
transformMessage :: Message -> Arrow
transformMessage m = Arrow (sender m) (receiver m)
transformMessage m = Arrow (sender m) (receiver m)