@@ -901,7 +901,7 @@ say :: String -> Process ()
901say string = do
901say string = do
902 now <- liftIO getCurrentTime
902 now <- liftIO getCurrentTime
903 us <- getSelfPid
903 us <- getSelfPid
904− nsend "logger" (formatTime defaultTimeLocale "[%d-%m-%Y] [%H:%M:%S-%q]" now, us, string)
904+ nsend "logger" (formatTime defaultTimeLocale "%c" now, us, string)
906--------------------------------------------------------------------------------
906--------------------------------------------------------------------------------
907-- Registry --
907-- Registry --