@@ -120,15 +120,15 @@ formatDateTimeOptions (DateTimeFormatOptions opts comps) = merge opts' (compsCoe
120120 , hour12: fromMaybe (unsafeCoerce undefined) opts.hour12
121121 , formatMatcher: maybe undefinedString show opts.formatMatcher
122122 }
123− comps' = case_
124− # on (SProxy :: SProxy "weekdayYearMonthDayHourMinuteSecond") (un FormatComponentRecord <<< formatComponent)
125− # on (SProxy :: SProxy "weekdayYearMonthDay") (un FormatComponentRecord <<< formatComponent)
126− # on (SProxy :: SProxy "yearMonthDay") (un FormatComponentRecord <<< formatComponent)
127− # on (SProxy :: SProxy "yearMonth") (un FormatComponentRecord <<< formatComponent)
128− # on (SProxy :: SProxy "monthDay") (un FormatComponentRecord <<< formatComponent)
129− # on (SProxy :: SProxy "hourMinuteSecond") (un FormatComponentRecord <<< formatComponent)
130− # on (SProxy :: SProxy "hourMinute") (un FormatComponentRecord <<< formatComponent)
131− # on (SProxy :: SProxy "custom") (un FormatComponentRecord <<< formatComponent)
123+ comps' = un FormatComponentRecord $ case_
124+ # on (SProxy :: SProxy "weekdayYearMonthDayHourMinuteSecond") formatComponent
125+ # on (SProxy :: SProxy "weekdayYearMonthDay") formatComponent
126+ # on (SProxy :: SProxy "yearMonthDay") formatComponent
127+ # on (SProxy :: SProxy "yearMonth") formatComponent
128+ # on (SProxy :: SProxy "monthDay") formatComponent
129+ # on (SProxy :: SProxy "hourMinuteSecond") formatComponent
130+ # on (SProxy :: SProxy "hourMinute") formatComponent
131+ # on (SProxy :: SProxy "custom") formatComponent
132132 $ comps
133133
134134 toUndefined :: Maybe String -> String