65 lines
3.0 KiB
Haskell
65 lines
3.0 KiB
Haskell
|
{-# LANGUAGE ScopedTypeVariables #-}
|
||
|
|
|
||
|
|
module Handler.Orders where
|
||
|
|
|
||
|
|
import Import
|
||
|
|
import Database.Persist.Sql
|
||
|
|
import qualified Eve.Api.Char.MarketOrders as MO
|
||
|
|
|
||
|
|
getOrdersR :: Handler Html
|
||
|
|
getOrdersR = loginOrDo (\(uid,user) -> do
|
||
|
|
-- using raw because model does not know about CCP-Data-Dump
|
||
|
|
let sql = "select ??, t.\"typeName\" from \"order\" join \"invTypes\" t on (\"order\".type_id = t.\"typeID\") where \"user\"=? order by \"order\".is_sell asc, t.\"typeName\" asc"
|
||
|
|
(orders :: [(Entity Order, Single Text)]) <- runDB $ rawSql sql [toPersistValue uid]
|
||
|
|
let sellorders = filter (\(Entity _ o, _) -> orderIsSell o && orderOrderState o == (fromIntegral . fromEnum) MO.Open) orders
|
||
|
|
let buyorders = filter (\(Entity _ o, _) -> not (orderIsSell o) && orderOrderState o == (fromIntegral . fromEnum) MO.Open) orders
|
||
|
|
loginLayout user [whamlet|
|
||
|
|
<div .panel .panel-default>
|
||
|
|
<div .panel-heading>Current Sell Orders:
|
||
|
|
<table .table .table-condensed .small>
|
||
|
|
<tr>
|
||
|
|
<th .text-center>Last changed
|
||
|
|
<th .text-center>Item
|
||
|
|
<th .text-center>Price
|
||
|
|
<th .text-center>Quantity (min)
|
||
|
|
<th .text-center>Range
|
||
|
|
<th .text-center>Duration
|
||
|
|
<th .text-center>Escrow
|
||
|
|
<th .text-center>Station
|
||
|
|
$forall (Entity _ o, Single name) <- sellorders
|
||
|
|
<tr>
|
||
|
|
<td>#{showDateTime $ orderIssued $ o}
|
||
|
|
<td>#{name}
|
||
|
|
<td .numeric>#{prettyISK $ orderPriceCents o}
|
||
|
|
<td .numeric>#{orderVolRemaining o}/#{orderVolEntered o} (#{orderMinVolume o})
|
||
|
|
<td .numeric>Range
|
||
|
|
<td .numeric>#{orderDuration o}
|
||
|
|
<td .numeric>#{prettyISK $ orderEscrowCents o}
|
||
|
|
<td>StationName
|
||
|
|
|
||
|
|
<div .panel .panel-default>
|
||
|
|
<div .panel-heading>Current Buy Orders:
|
||
|
|
<table .table .table-condensed .small>
|
||
|
|
<tr>
|
||
|
|
<th .text-center>Last changed
|
||
|
|
<th .text-center>Item
|
||
|
|
<th .text-center>Price
|
||
|
|
<th .text-center>Quantity (min)
|
||
|
|
<th .text-center>Range
|
||
|
|
<th .text-center>Duration
|
||
|
|
<th .text-center>Escrow
|
||
|
|
<th .text-center>Station
|
||
|
|
$forall (Entity _ o, Single name) <- buyorders
|
||
|
|
<tr>
|
||
|
|
<td>#{showDateTime $ orderIssued $ o}
|
||
|
|
<td>#{name}
|
||
|
|
<td .numeric>#{prettyISK $ orderPriceCents o}
|
||
|
|
<td .numeric>#{orderVolRemaining o}/#{orderVolEntered o} (#{orderMinVolume o})
|
||
|
|
<td .numeric>Range
|
||
|
|
<td .numeric>#{orderDuration o}
|
||
|
|
<td .numeric>#{prettyISK $ orderEscrowCents o}
|
||
|
|
<td>StationName
|
||
|
|
|
||
|
|
|]
|
||
|
|
)
|