From 0d350774df46548104d41da8d7e88dd3e982a14b Mon Sep 17 00:00:00 2001 From: Denis Tereshkin Date: Thu, 2 Dec 2021 21:28:00 +0700 Subject: [PATCH] positions: GC --- src/ATrade/RoboCom/Positions.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/src/ATrade/RoboCom/Positions.hs b/src/ATrade/RoboCom/Positions.hs index e0ebeda..c054608 100644 --- a/src/ATrade/RoboCom/Positions.hs +++ b/src/ATrade/RoboCom/Positions.hs @@ -371,9 +371,7 @@ newPosition order account tickerId operation quantity submissionDeadline = do return position reapDeadPositions :: (StateHasPositions s) => EventCallback c s -reapDeadPositions _ = do - ts <- view seLastTimestamp <$> getEnvironment - when (floor (utctDayTime ts) `mod` 300 == 0) $ modifyPositions (L.filter (not . posIsDead)) +reapDeadPositions _ = modifyPositions (L.filter (not . posIsDead)) defaultHandler :: (StateHasPositions s) => EventCallback c s defaultHandler = reapDeadPositions `also` handlePositions