From 1db4136de69de5ab4b3c7ef808fcdc62355b8061 Mon Sep 17 00:00:00 2001
From: Denis Tereshkin <denis@kasan.ws>
Date: Sat, 20 Nov 2021 18:23:33 +0700
Subject: [PATCH] BarTimeframe: derive Generic

---
 src/ATrade/Types.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/ATrade/Types.hs b/src/ATrade/Types.hs
index 0118ace..45974c1 100644
--- a/src/ATrade/Types.hs
+++ b/src/ATrade/Types.hs
@@ -177,7 +177,7 @@ data Bar = Bar {
 
 -- | Stores timeframe in seconds
 newtype BarTimeframe = BarTimeframe { unBarTimeframe :: Int }
-  deriving (Show, Eq, Ord)
+  deriving (Show, Eq, Ord, Generic)
 
 serializeBar :: BarTimeframe -> Bar -> [ByteString]
 serializeBar tf bar = serializeBarHeader tf bar : [serializeBarBody tf bar]