From 4ba79446497975196604135876ed2443dd0e6916 Mon Sep 17 00:00:00 2001 From: nek0 Date: Mon, 2 Jan 2017 13:25:40 +0100 Subject: [PATCH] a little dusting off --- Handler/AdminProfileSettings.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/Handler/AdminProfileSettings.hs b/Handler/AdminProfileSettings.hs index 2f85e8a..9cd1fe6 100755 --- a/Handler/AdminProfileSettings.hs +++ b/Handler/AdminProfileSettings.hs @@ -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