From 216ad95a66ad902452d002c2eaea1aeb506d848d Mon Sep 17 00:00:00 2001
From: Denis Tereshkin <denis@kasan.ws>
Date: Mon, 10 Oct 2016 17:00:44 +0700
Subject: [PATCH] QuikBroker: fixed transaction string formation

---
 src/Broker/QuikBroker.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/Broker/QuikBroker.hs b/src/Broker/QuikBroker.hs
index 40c08d6..3836393 100644
--- a/src/Broker/QuikBroker.hs
+++ b/src/Broker/QuikBroker.hs
@@ -125,8 +125,9 @@ makeTransactionString transId order =
     seccode = (`atMay` 1) . splitOn "#" . T.unpack $ orderSecurity order
     price = case orderPrice order of
       Market -> "0"
-      Limit p -> L.dropWhileEnd (== '.') . L.dropWhileEnd (== '0') . show $ p
+      Limit p -> removeTrailingZeros . show $ p
       _ -> "0"
+    removeTrailingZeros v = if '.' `L.elem` v then L.dropWhileEnd (== '.') . L.dropWhileEnd (== '0') $ v else v
 
 makeCancelTransactionString transId order orderId =
   case (classcode, seccode) of