From 55e7cfac0f780afbb09b7efb69fa3f413a4b67fd Mon Sep 17 00:00:00 2001
From: nek0 <neko.rloove@rocketmail.com>
Date: Fri, 5 Sep 2014 20:41:08 +0200
Subject: [PATCH] forgetful

---
 Handler/Profile.hs     | 2 +-
 templates/login.hamlet | 2 ++
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/Handler/Profile.hs b/Handler/Profile.hs
index 0290334..d891b20 100644
--- a/Handler/Profile.hs
+++ b/Handler/Profile.hs
@@ -7,7 +7,7 @@ import qualified Data.Text as T
 getProfileR :: UserId -> Handler Html
 getProfileR ownerId = do
   owner <- runDB $ get ownerId
-  ownerName <- lift $ pure $ userName $ fromJust owner
+  ownerSlug <- lift $ pure $ userSlug $ fromJust owner
   userAlbs <- runDB $ selectList [AlbumOwner ==. ownerId] [Desc AlbumTitle]
   recentMedia <- (runDB $ selectList [MediumOwner ==. ownerId] [Desc MediumTime])
   msu <- lookupSession "userId"
diff --git a/templates/login.hamlet b/templates/login.hamlet
index fcf2b72..839f43f 100644
--- a/templates/login.hamlet
+++ b/templates/login.hamlet
@@ -13,6 +13,8 @@ $newline always
     <p id="progress">
     <input id="login" type="submit" value="Login">
 
+  <a href=@{ReactivateR}>Forgot your Password?
+
   <script src="/static/js/jquery-1.7.1.min.js" type="text/javascript">
   <script src="/static/js/jsSHA.js" type="text/javascript">
   <script src="/static/js/login.js" type="text/javascript">