00dani/lebd
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Enable simple username+password login - ugly but serviceable

Browse source
This commit is contained in:
Danielle McLean 2017-10-06 10:38:10 +11:00
parent e141fb4666
commit f934632484
Signed by: 00dani
GPG key ID: 5A5D2D1AFF12EEC5
5 changed files with 20 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Handler/Home.hs
View file

@ -10,7 +10,7 @@ import Widget.Hcard (hcard)
getHomeR :: Handler Html
getHomeR = do
user <- runDB . getBy404 $ UniqueUsername "dani"
user <- runDB . getBy404 $ UniqueUser "dani"
let name = userFullName . entityVal $ user
maybeTitle <- asks $ appTitle . appSettings
defaultLayout $ do