From 9a79d1fa645782c82770a3bdc284bc501f164b9d Mon Sep 17 00:00:00 2001 From: Gian Perrone Date: Mon, 18 Apr 2011 18:07:31 +0200 Subject: [PATCH] Updated auth failure to have a link --- step7/auth.ur | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/step7/auth.ur b/step7/auth.ur index c425a0e..ab4fc25 100644 --- a/step7/auth.ur +++ b/step7/auth.ur @@ -31,10 +31,16 @@ fun loginHandler row = fun displayIfAuthenticated page = c <- getCookie userSession; case c of - None => error Not logged in + None => return + + +

Not logged in.

+

Login

+ + | Some c' => ifAuthenticated page c' -fun login () = return +and login () = return Login to UrBlog