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)