Clean up user entity - remove unused fields, adjust order
This commit is contained in:
parent
4023b17e85
commit
a070ceef3c
4 changed files with 10 additions and 26 deletions
|
@ -10,5 +10,5 @@ import Widget.Hcard (hcard)
|
|||
|
||||
getHomeR :: Handler Html
|
||||
getHomeR = do
|
||||
user <- runDB . getBy404 $ UniqueUser "dani"
|
||||
user <- runDB . getBy404 $ UniqueUsername "dani"
|
||||
defaultLayout $(widgetFile "home")
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue