From 8d8cf4a12cee2d39a87e6a61c6c378baeb4319bc Mon Sep 17 00:00:00 2001 From: Denis Tereshkin Date: Thu, 20 Jun 2019 15:26:11 +0700 Subject: [PATCH] Minor cleanup --- src/ATrade/MDS/HistoryServer.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/ATrade/MDS/HistoryServer.hs b/src/ATrade/MDS/HistoryServer.hs index 6997aec..ffdc2e6 100644 --- a/src/ATrade/MDS/HistoryServer.hs +++ b/src/ATrade/MDS/HistoryServer.hs @@ -1,3 +1,4 @@ +{-# LANGUAGE OverloadedStrings #-} module ATrade.MDS.HistoryServer ( HistoryServer, @@ -77,10 +78,9 @@ serveHAP db sock = forever $ do _ -> return () where handleCmd :: B.ByteString -> HAPRequest -> [Bar] -> IO () - handleCmd peerId cmd bars = case cmd of - rq -> do - putData db (hapTicker rq) (TimeInterval (hapStartTime rq) (hapEndTime rq)) (Timeframe $ hapTimeframeSec rq) (V.fromList bars) - sendMulti sock $ peerId :| B.empty : ["OK"] + handleCmd peerId rq bars = do + putData db (hapTicker rq) (TimeInterval (hapStartTime rq) (hapEndTime rq)) (Timeframe $ hapTimeframeSec rq) (V.fromList bars) + sendMulti sock $ peerId :| B.empty : ["OK"] deserializeBars tickerId input = case runGetOrFail parseBar input of