- (Just cs, w) = (Just $ map toPrefix cs, (), w)
+ (Just cs, w)
+ # msgs = map toPrefix cs
+ = (Just msgs, (), w)
+
+ log :: String String IRCMessage (!*File, !*World) -> (!*File, !*World)
+ log strf pref m (io, w)
+ #! (t, w) = localTime w
+ = (io <<< strfTime strf t <<< pref <<< toString m <<< "\n", w)