git.iko.soy/typeable/extra-time
on master help sign in
B2H-443: Correct order page (#5452)
c7ba9a0Vladislav Lagunov
src/Data/Time/Extra.hs+8
compare with master
unifiedsplit
@@ -9,7 +9,9 @@ module Data.Time.Extra
9 , UTCTime'(..)
9 , UTCTime'(..)
10 , _UTCTime'
10 , _UTCTime'
11 , mskTimeZone
11 , mskTimeZone
12+ , estTimeZone
12 , toAPITimeMSK
13 , toAPITimeMSK
14+ , toAPITimeEST
13 , apiDate
15 , apiDate
14 , module Data.Time.LocalTime.Short
16 , module Data.Time.LocalTime.Short
15 , TimeFrame
17 , TimeFrame
@@ -160,9 +162,15 @@ apiDate = prism' toApiDate fromApiDate
160mskTimeZone :: TimeZone
162mskTimeZone :: TimeZone
161mskTimeZone = TimeZone (3 * 60) False "MSK"
163mskTimeZone = TimeZone (3 * 60) False "MSK"
162
164
165+estTimeZone :: TimeZone
166+estTimeZone = TimeZone (-5 * 60) False "EST"
167+
163toAPITimeMSK :: UTCTime -> ShortZonedTime
168toAPITimeMSK :: UTCTime -> ShortZonedTime
164toAPITimeMSK = shortZonedTime . utcToZonedTime mskTimeZone
169toAPITimeMSK = shortZonedTime . utcToZonedTime mskTimeZone
165
170
171+toAPITimeEST :: UTCTime -> ShortZonedTime
172+toAPITimeEST = shortZonedTime . utcToZonedTime estTimeZone
173+
166data TimeFrameType
174data TimeFrameType
167 = TimeOfArrival
175 = TimeOfArrival
168 | TimeOfDeparture
176 | TimeOfDeparture