a little dusting off

This commit is contained in:
nek0 2017-01-02 13:25:40 +01:00
parent 9354dcdf43
commit 4ba7944649

View file

@ -29,7 +29,7 @@ getAdminProfilesR = do
adminCheck <- loginIsAdmin
case adminCheck of
Right _ -> do
profiles <- runDB $ selectList [] [Desc UserName]
profiles <- runDB $ selectList [] [Asc UserName]
defaultLayout $ do
setTitle "Administration: Profiles"
$(widgetFile "adminProfiles")
@ -83,8 +83,6 @@ getAdminProfileSettingsR ownerId = do
tempOwner <- runDB $ get ownerId
case tempOwner of
Just owner -> do
tempUserId <- lookupSession "userId"
let userId = getUserIdFromText $ fromJust tempUserId
(adminProfileSetWidget, enctype) <- generateFormPost $
renderBootstrap3 BootstrapBasicForm $
adminProfileForm owner