From a91e787bb7797277183966d104fbd56b2aa97fd8 Mon Sep 17 00:00:00 2001
From: Bartosz Nitka <bnitka@fb.com>
Date: Tue, 18 Apr 2017 07:58:00 -0700
Subject: [PATCH] Derive Eq, Show for TimeIntervalType

Summary: This is always useful to have.

Reviewed By: patapizza

Differential Revision: D4864208

fbshipit-source-id: b879893
---
 Duckling/Time/Types.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/Duckling/Time/Types.hs b/Duckling/Time/Types.hs
index 74a48441..fe7930fd 100644
--- a/Duckling/Time/Types.hs
+++ b/Duckling/Time/Types.hs
@@ -663,6 +663,7 @@ timeStartingAtTheEndOf t = TimeObject
 -- | Closed if the interval between A and B should include B
 -- Open if the interval should end right before B
 data TimeIntervalType = Open | Closed
+  deriving (Eq, Show)
 
 timeInterval :: TimeIntervalType -> TimeObject -> TimeObject -> TimeObject
 timeInterval intervalType t1 t2 = TimeObject