Drezil/neat
1
0
Fork 0
Code Issues 5 Pull Requests Projects Releases Wiki Activity

minor

Browse Source
This commit is contained in:
Nicole Dresselhaus 2015-08-03 12:52:48 +02:00
parent baff2727cd
commit 75982cf813
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Handler/Wallet.hs
View File

@ -11,7 +11,7 @@ getWalletR = loginOrDo $ (\(uid,user) -> do
apiKey <- runDB $ getBy $ UniqueApiUser uid apiKey <- runDB $ getBy $ UniqueApiUser uid
acc <- case apiKey of acc <- case apiKey of
Just (Entity _ (Api _ k v)) -> do 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) return (Just a)
Nothing -> return Nothing Nothing -> return Nothing
defaultLayout $ [whamlet| defaultLayout $ [whamlet|