git.iko.soy/typeable/extra-time
on master help sign in
B2H-443: Correct order page (#5452)

* b2h-443: Order page corrections * b2h-443: Error details inside dialog * b2h-443: Convert UTCTime to EST in CancellationPolicyData * b2h-443: Capitalize more titles * b2h-443: Rename errorMsgTd -> mkErrorMsgDetails

commitc7ba9a0945f05c410bced1ab0021a473ea6ef2e2 authorVladislav Lagunov <vlad.lagunoff@gmail.com> dateFri 13 Nov 2020, 11:38 (6 years ago) parent3b3920c
1 file changed+8
compare with master
unifiedsplit
src/Data/Time/Extra.hs+8
src/Data/Time/Extra.hs+8
@@ -9,7 +9,9 @@ module Data.Time.Extra
99 , UTCTime'(..)
1010 , _UTCTime'
1111 , mskTimeZone
12+ , estTimeZone
1213 , toAPITimeMSK
14+ , toAPITimeEST
1315 , apiDate
1416 , module Data.Time.LocalTime.Short
1517 , TimeFrame
@@ -160,9 +162,15 @@ apiDate = prism' toApiDate fromApiDate
160162mskTimeZone :: TimeZone
161163mskTimeZone = TimeZone (3 * 60) False "MSK"
162164
165+estTimeZone :: TimeZone
166+estTimeZone = TimeZone (-5 * 60) False "EST"
167+
163168toAPITimeMSK :: UTCTime -> ShortZonedTime
164169toAPITimeMSK = shortZonedTime . utcToZonedTime mskTimeZone
165170
171+toAPITimeEST :: UTCTime -> ShortZonedTime
172+toAPITimeEST = shortZonedTime . utcToZonedTime estTimeZone
173+
166174data TimeFrameType
167175 = TimeOfArrival
168176 | TimeOfDeparture