Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Snowdrift
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
1
Merge Requests
1
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Commits
Issue Boards
Open sidebar
snowdrift
Snowdrift
Commits
5968ddc5
Commit
5968ddc5
authored
Mar 31, 2016
by
Peter Harpending
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Show maybeAuthId at the top of /u/#Int/balance
parent
cb4e962a
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
8 additions
and
9 deletions
+8
-9
Balance.hs
src/Handler/User/Balance.hs
+8
-9
No files found.
src/Handler/User/Balance.hs
View file @
5968ddc5
...
...
@@ -7,17 +7,18 @@ import MechBridge
import
Model.User
import
View.User
import
qualified
Data.Text
as
T
-- check permissions for user balance view
getUserBalanceR
::
UserId
->
Handler
Html
getUserBalanceR
user_id
=
do
viewer_id
<-
requireAuthId
if
viewer_id
/=
user_id
then
permissionDenied
"You must be a site administrator to view user balances."
else
getUserBalanceR'
user_id
getUserBalanceR'
::
UserId
->
Handler
Html
getUserBalanceR'
user_id
=
do
-- viewer_id <- requireAuthId
-- if viewer_id /= user_id
-- then permissionDenied "You must be a site administrator to view user balances."
-- else getUserBalanceR' user_id
maid
<-
maybeAuthId
user
<-
runYDB
$
get404
user_id
alertSuccess
(
T
.
pack
$
show
maid
)
-- TODO: restrict viewing balance to user or snowdrift admins (logged)
-- before moving to real money
...
...
@@ -26,9 +27,7 @@ getUserBalanceR' user_id = do
-- "You can only view your own account balance history.")
dollars
<-
eburn
$
userFunds
user_id
(
add_funds_form
,
enctype
)
<-
generateFormPost
addTestCashForm
defaultLayout
$
do
snowdriftDashTitle
"User Balance"
$
userDisplayName
(
Entity
user_id
user
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment