typeable/extra-time
1
0
Fork 0
mirror of https://github.com/typeable/extra-time.git synced 2024-12-25 18:12:03 +03:00
Code Issues Projects Releases Wiki Activity

B2H-443: Correct order page (#5452)

Browse Source 
* 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
This commit is contained in:
Vladislav Lagunov 2020-11-13 11:38:24 +04:00 committed by GitHub
parent 3b3920ccae
commit c7ba9a0945
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Data/Time/Extra.hs
View File

@ -9,7 +9,9 @@ module Data.Time.Extra
, UTCTime'(..)
, _UTCTime'
, mskTimeZone
, estTimeZone
, toAPITimeMSK
, toAPITimeEST
, apiDate
, module Data.Time.LocalTime.Short
, TimeFrame
@ -160,9 +162,15 @@ apiDate = prism' toApiDate fromApiDate
mskTimeZone :: TimeZone
mskTimeZone = TimeZone (3 * 60) False "MSK"
estTimeZone :: TimeZone
estTimeZone = TimeZone (-5 * 60) False "EST"
toAPITimeMSK :: UTCTime -> ShortZonedTime
toAPITimeMSK = shortZonedTime . utcToZonedTime mskTimeZone
toAPITimeEST :: UTCTime -> ShortZonedTime
toAPITimeEST = shortZonedTime . utcToZonedTime estTimeZone
data TimeFrameType
= TimeOfArrival
| TimeOfDeparture