nek0/eidolon
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

forgetful

Browse source
This commit is contained in:
nek0 2014-09-05 20:41:08 +02:00
parent 99b37beaa4
commit 55e7cfac0f
2 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Handler/Profile.hs
View file

@ -7,7 +7,7 @@ import qualified Data.Text as T
getProfileR :: UserId -> Handler Html getProfileR :: UserId -> Handler Html
getProfileR ownerId = do getProfileR ownerId = do
owner <- runDB $ get ownerId owner <- runDB $ get ownerId
ownerName <- lift $ pure $ userName $ fromJust owner ownerSlug <- lift $ pure $ userSlug $ fromJust owner
userAlbs <- runDB $ selectList [AlbumOwner ==. ownerId] [Desc AlbumTitle] userAlbs <- runDB $ selectList [AlbumOwner ==. ownerId] [Desc AlbumTitle]
recentMedia <- (runDB $ selectList [MediumOwner ==. ownerId] [Desc MediumTime]) recentMedia <- (runDB $ selectList [MediumOwner ==. ownerId] [Desc MediumTime])
msu <- lookupSession "userId" msu <- lookupSession "userId"

2
templates/login.hamlet
View file

@ -13,6 +13,8 @@ $newline always
<p id="progress"> <p id="progress">
<input id="login" type="submit" value="Login"> <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/jquery-1.7.1.min.js" type="text/javascript">
<script src="/static/js/jsSHA.js" type="text/javascript"> <script src="/static/js/jsSHA.js" type="text/javascript">
<script src="/static/js/login.js" type="text/javascript"> <script src="/static/js/login.js" type="text/javascript">