module Chronos.Locale.English.Text where
import Chronos.Types
import qualified Chronos.Month as Month
import Data.Text (Text)
datetimeW3 :: DatetimeFormat
datetimeW3 = DatetimeFormat (Just '-') (Just 'T') (Just ':')
datetimeSlash :: DatetimeFormat
datetimeSlash = DatetimeFormat (Just '/') (Just ' ') (Just ':')
datetimeHyphen :: DatetimeFormat
datetimeHyphen = DatetimeFormat (Just '-') (Just ' ') (Just ':')
datetimeCompact :: DatetimeFormat
datetimeCompact = DatetimeFormat Nothing (Just 'T') Nothing
meridiemLower :: MeridiemLocale Text
meridiemLower = MeridiemLocale "am" "pm"
meridiemUpper :: MeridiemLocale Text
meridiemUpper = MeridiemLocale "AM" "PM"
meridiemLowerDotted :: MeridiemLocale Text
meridiemLowerDotted = MeridiemLocale "a.m." "p.m."
meridiemUpperDotted :: MeridiemLocale Text
meridiemUpperDotted = MeridiemLocale "A.M." "P.M."
monthFull :: MonthMatch Text
monthFull = Month.match
"January" "February" "March" "April"
"May" "June" "July" "August"
"September" "October" "November" "December"
monthAbbreviated :: MonthMatch Text
monthAbbreviated = Month.match
"Jan" "Feb" "Mar" "Apr" "May" "Jun"
"Jul" "Aug" "Sep" "Oct" "Nov" "Dec"