asakul
/
quik-connector
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
Browse Source

Merge branch 'master' of https://github.com/asakul/quik-connector

master
Denis Tereshkin 9 years ago
parent
79b1eecac5 216ad95a66
commit
a063819ed7
1 changed files with 2 additions and 1 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 3
      src/Broker/QuikBroker.hs

3
src/Broker/QuikBroker.hs
Unescape View File

@ -125,8 +125,9 @@ makeTransactionString transId order =
seccode = (`atMay` 1) . splitOn "#" . T.unpack $ orderSecurity order seccode = (`atMay` 1) . splitOn "#" . T.unpack $ orderSecurity order
price = case orderPrice order of price = case orderPrice order of
Market -> "0" Market -> "0"
Limit p -> L.dropWhileEnd (== '.') . L.dropWhileEnd (== '0') . show $ p Limit p -> removeTrailingZeros . show $ p
_ -> "0" _ -> "0"
removeTrailingZeros v = if '.' `L.elem` v then L.dropWhileEnd (== '.') . L.dropWhileEnd (== '0') $ v else v
makeCancelTransactionString transId order orderId = makeCancelTransactionString transId order orderId =
case (classcode, seccode) of case (classcode, seccode) of

Write Preview
Loading…
Cancel
Save