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

minor

Browse Source
This commit is contained in:
Stefan Dresselhaus
2015-08-04 00:12:34 +02:00
parent 75982cf813
commit 753b9079e7
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Handler/Wallet.hs
View File

@@ -2,7 +2,7 @@ module Handler.Wallet where
import Import import Import
import Eve.Api.Char import Eve.Api.Char.MarketOrders
import Eve.Api.Types as T import Eve.Api.Types as T
getWalletR :: Handler Html getWalletR :: Handler Html
@@ -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 $ getStandings man (mkComplete k v (userCharId user)) a <- liftIO $ getMarketOrders man (mkComplete k v (userCharId user))
return (Just a) return (Just a)
Nothing -> return Nothing Nothing -> return Nothing
defaultLayout $ [whamlet| defaultLayout $ [whamlet|