From 75982cf8136e19b9ccad15fb15c2aa0fb808b7ea Mon Sep 17 00:00:00 2001 From: Stefan Dresselhaus Date: Mon, 3 Aug 2015 12:52:48 +0200 Subject: [PATCH] minor --- Handler/Wallet.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Handler/Wallet.hs b/Handler/Wallet.hs index d668a75..ef33871 100644 --- 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|