Show maybeAuthId at the top of /u/#Int/balance

src/Handler/User/Balance.hs

@@ -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)