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

a little dusting off

Browse source
This commit is contained in:
nek0 2017-01-02 13:25:40 +01:00
parent 9354dcdf43
commit 4ba7944649
1 changed files with 1 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Handler/AdminProfileSettings.hs
View file

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