Make prompt stand out some more
[eow] / web.lisp
index 135cdb4c424b27aaf366e4ced1a51d9caecebdb1..f97b18da710f536d792f98d3ea321b59194ec59a 100644 (file)
--- a/web.lisp
+++ b/web.lisp
@@ -83,7 +83,7 @@
             (pass (post-parameter "password"))
             (session (make-session user pass)))
        (setf (session-value 'session) session)
             (pass (post-parameter "password"))
             (session (make-session user pass)))
        (setf (session-value 'session) session)
-       (empire-log:info "User ~a logging in. Session ~a" user session)
+       (empire-log:info "~a: User ~a logging in." session user)
        (redirect +root-url+))
     (usocket:connection-refused-error (e)
       (format nil "Connection error: ~a~%" e))))
        (redirect +root-url+))
     (usocket:connection-refused-error (e)
       (format nil "Connection error: ~a~%" e))))