facebook/duckling
1
1
Fork 0
mirror of https://github.com/facebook/duckling.git synced 2024-11-29 09:54:49 +03:00
Code Issues Packages Projects Releases Wiki Activity

Derive Eq, Show for TimeIntervalType

Browse Source 
Summary: This is always useful to have.

Reviewed By: patapizza

Differential Revision: D4864208

fbshipit-source-id: b879893
This commit is contained in:
Bartosz Nitka 2017-04-18 07:58:00 -07:00 committed by Facebook Github Bot
parent 879b103ca3
commit a91e787bb7
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Duckling/Time/Types.hs
View File

@ -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