From 7178f9b3094dedf4d0211291ab5bc227803f6455 Mon Sep 17 00:00:00 2001
From: Denis Tereshkin <denis@kasan.ws>
Date: Wed, 5 Oct 2016 15:56:27 +0700
Subject: [PATCH] Paperbroker: strict

---
 src/Broker/PaperBroker.hs | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/src/Broker/PaperBroker.hs b/src/Broker/PaperBroker.hs
index af0cc42..eb5114a 100644
--- a/src/Broker/PaperBroker.hs
+++ b/src/Broker/PaperBroker.hs
@@ -1,5 +1,6 @@
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE BangPatterns #-}
+{-# LANGUAGE Strict #-}
 
 module Broker.PaperBroker (
   PaperBrokerState,
@@ -80,6 +81,7 @@ pbSetNotificationCallback state callback = modifyIORef state (\s -> s { notifica
 
 pbSubmitOrder :: IORef PaperBrokerState -> Order -> IO ()
 pbSubmitOrder state order = do
+  infoM "PaperBroker" $ "Submitted order: " ++ show order
   curState <- readIORef state
   case orderPrice order of
     Market -> executeMarketOrder state order
@@ -100,9 +102,9 @@ pbSubmitOrder state order = do
           ts <- getCurrentTime
           maybeCall notificationCallback state $ TradeNotification $ mkTrade tick order ts
 
-    submitLimitOrder = undefined
-    submitStopOrder = undefined
-    submitStopMarketOrder = undefined
+    submitLimitOrder state order = warningM "PaperBroker" $ "Not implemented: Submitted order: " ++ show order
+    submitStopOrder state order = warningM "PaperBroker" $ "Not implemented: Submitted order: " ++ show order
+    submitStopMarketOrder state order = warningM "PaperBroker" $ "Not implemented: Submitted order: " ++ show order
 
     orderDatatype order = case orderOperation order of
       Buy -> BestOffer