minor

2015-08-03 12:52:48 +02:00
parent baff2727cd
commit 75982cf813
1 changed files with 1 additions and 1 deletions
--- a/Handler/Wallet.hs
+++ b/Handler/Wallet.hs
@@ -11,7 +11,7 @@ getWalletR = loginOrDo $ (\(uid,user) -> do
             apiKey <- runDB $ getBy $ UniqueApiUser uid
             acc <- case apiKey of
                      Just (Entity _ (Api _ k v)) -> do
-                          a <- liftIO $ getAccountBalance man (ApiComplete (T.ApiKey (VCode v) (KeyId k)) (T.CharacterId (userCharId user)))
+                          a <- liftIO $ getStandings man (mkComplete k v (userCharId user))
                          return (Just a)
                      Nothing -> return Nothing
             defaultLayout $ [whamlet|