- log :: String String IRCMessage (*File, *World) -> (*File, *World)
- log strf pref m (io, w) = (io, w)
-// # (t, w) = localTime w
-// = (io <<< strfTime strf t <<< pref <<< toString m, 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, w)