- //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)
+ 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)