From d88db3e122056a39dfb5564b63cc181888de9d65 Mon Sep 17 00:00:00 2001 From: Denis Tereshkin Date: Tue, 14 Apr 2020 13:13:03 +0700 Subject: [PATCH] Fix typo in a comment --- src/ATrade/RoboCom/Positions.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/ATrade/RoboCom/Positions.hs b/src/ATrade/RoboCom/Positions.hs index 1032ec7..d9e3029 100644 --- a/src/ATrade/RoboCom/Positions.hs +++ b/src/ATrade/RoboCom/Positions.hs @@ -146,7 +146,7 @@ modifyPositions f = do class ParamsHasMainTicker a where mainTicker :: a -> TickerId --- | Helper function. Finds first element in list which satisfies predicate 'p' and if found, applies 'm' to it, leaving other elements inact. +-- | Helper function. Finds first element in list which satisfies predicate 'p' and if found, applies 'm' to it, leaving other elements intact. findAndModify :: (a -> Bool) -> (a -> a) -> [a] -> [a] findAndModify p m (x:xs) = if p x then m x : xs