From 9dcb7742a331a403bf05c15a0c50fec9606e428a Mon Sep 17 00:00:00 2001
From: Denis Tereshkin <denis@kasan.ws>
Date: Mon, 16 Oct 2017 18:23:38 +0700
Subject: [PATCH] OrderPrice JSON parsing: bugfix

---
 src/ATrade/Types.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/ATrade/Types.hs b/src/ATrade/Types.hs
index 5648ede..daa93ee 100644
--- a/src/ATrade/Types.hs
+++ b/src/ATrade/Types.hs
@@ -199,6 +199,7 @@ instance FromJSON OrderPrice where
               else return $ StopMarket trprice
           (Number n) -> return $ Stop trprice (fromScientific n)
           _ -> fail "Should be either number or 'market'"
+      _ -> fail "Should be a number"
 
   parseJSON _ = fail "OrderPrice"