From 19893d77dfd788991f3b1e2f9bbe2e120dfa9c71 Mon Sep 17 00:00:00 2001 From: Denis Tereshkin Date: Sun, 28 Nov 2021 08:40:28 +0700 Subject: [PATCH] junction: StrategyDescriptor: cleanup --- src/ATrade/Driver/Junction/Types.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/ATrade/Driver/Junction/Types.hs b/src/ATrade/Driver/Junction/Types.hs index 3590cd1..602ad4d 100644 --- a/src/ATrade/Driver/Junction/Types.hs +++ b/src/ATrade/Driver/Junction/Types.hs @@ -25,8 +25,7 @@ data StrategyDescriptor c s = StrategyDescriptor { baseStrategyName :: T.Text, - eventCallback :: EventCallback c s, - defaultState :: s + eventCallback :: EventCallback c s } data StrategyDescriptorE = forall c s. (FromDhall c, Default s, FromJSON s, ToJSON s) => StrategyDescriptorE (StrategyDescriptor c s)