git.iko.soy/purescript-intl
on master help sign in
derive Newtype instances
2431d46Marcin Szamotulski
src/Data/Intl/DateTimeFormat/Types.purs+14
compare with master
unifiedsplit
@@ -110,6 +110,8 @@ newtype WeekdayYearMonthDayHourMinuteSecond = WeekdayYearMonthDayHourMinuteSecon
110 , second :: NumericRep
110 , second :: NumericRep
111 }
111 }
112
112
113+derive instance newtypeWeekdayYearMonthDayHourMinuteSecond :: Newtype WeekdayYearMonthDayHourMinuteSecond _
114+
113instance formatComponentWeekdayYearMonthDayHourMinuteSecond :: FormatComponent WeekdayYearMonthDayHourMinuteSecond where
115instance formatComponentWeekdayYearMonthDayHourMinuteSecond :: FormatComponent WeekdayYearMonthDayHourMinuteSecond where
114 formatComponent (WeekdayYearMonthDayHourMinuteSecond { weekday, year, month, day, hour, minute, second }) = over FormatComponentRecord
116 formatComponent (WeekdayYearMonthDayHourMinuteSecond { weekday, year, month, day, hour, minute, second }) = over FormatComponentRecord
115 (\r -> r { weekday = Just (show weekday)
117 (\r -> r { weekday = Just (show weekday)
@@ -129,6 +131,8 @@ newtype WeekdayYearMonthDay = WeekdayYearMonthDay
129 , day :: NumericRep
131 , day :: NumericRep
130 }
132 }
131
133
134+derive instance newtypeWeekdayYearMonthDay :: Newtype WeekdayYearMonthDay _
135+
132instance formatComponentWeekdayYearMonthDay :: FormatComponent WeekdayYearMonthDay where
136instance formatComponentWeekdayYearMonthDay :: FormatComponent WeekdayYearMonthDay where
133 formatComponent (WeekdayYearMonthDay { weekday, year, month, day }) = over FormatComponentRecord
137 formatComponent (WeekdayYearMonthDay { weekday, year, month, day }) = over FormatComponentRecord
134 (\r -> r { weekday = Just (show weekday)
138 (\r -> r { weekday = Just (show weekday)
@@ -145,6 +149,8 @@ newtype YearMonthDay = YearMonthDay
145 , day :: NumericRep
149 , day :: NumericRep
146 }
150 }
147
151
152+derive instance newtypeYearMonthDay :: Newtype YearMonthDay _
153+
148instance formatComponentYearMonthDay :: FormatComponent YearMonthDay where
154instance formatComponentYearMonthDay :: FormatComponent YearMonthDay where
149 formatComponent (YearMonthDay { year, month, day }) = over FormatComponentRecord
155 formatComponent (YearMonthDay { year, month, day }) = over FormatComponentRecord
150 (\r -> r { year = Just (show year)
156 (\r -> r { year = Just (show year)
@@ -159,6 +165,8 @@ newtype YearMonth = YearMonth
159 , month :: MonthRep
165 , month :: MonthRep
160 }
166 }
161
167
168+derive instance newtypeYearMonth :: Newtype YearMonth _
169+
162instance formatComponentYearMonth :: FormatComponent YearMonth where
170instance formatComponentYearMonth :: FormatComponent YearMonth where
163 formatComponent (YearMonth { year, month }) = over FormatComponentRecord
171 formatComponent (YearMonth { year, month }) = over FormatComponentRecord
164 (\r -> r { year = Just (show year)
172 (\r -> r { year = Just (show year)
@@ -171,6 +179,8 @@ newtype MonthDay = MonthDay
171 , day :: NumericRep
179 , day :: NumericRep
172 }
180 }
173
181
182+derive instance newtypeMonthDay :: Newtype MonthDay _
183+
174instance formatComponentMonthDay :: FormatComponent MonthDay where
184instance formatComponentMonthDay :: FormatComponent MonthDay where
175 formatComponent (MonthDay { month, day }) = over FormatComponentRecord
185 formatComponent (MonthDay { month, day }) = over FormatComponentRecord
176 (\r -> r { month = Just (show month)
186 (\r -> r { month = Just (show month)
@@ -184,6 +194,8 @@ newtype HourMinuteSecond = HourMinuteSecond
184 , second :: NumericRep
194 , second :: NumericRep
185 }
195 }
186
196
197+derive instance newtypeHourMinuteSecond :: Newtype HourMinuteSecond _
198+
187instance formatComponentHourMinuteSecond :: FormatComponent HourMinuteSecond where
199instance formatComponentHourMinuteSecond :: FormatComponent HourMinuteSecond where
188 formatComponent (HourMinuteSecond { hour, minute, second }) = over FormatComponentRecord
200 formatComponent (HourMinuteSecond { hour, minute, second }) = over FormatComponentRecord
189 (\r -> r { hour = Just (show hour)
201 (\r -> r { hour = Just (show hour)
@@ -197,6 +209,8 @@ newtype HourMinute = HourMinute
197 , minute :: NumericRep
209 , minute :: NumericRep
198 }
210 }
199
211
212+derive instance newtypeHourMinute :: Newtype HourMinute _
213+
200instance formatComponentHourMinute :: FormatComponent HourMinute where
214instance formatComponentHourMinute :: FormatComponent HourMinute where
201 formatComponent (HourMinute { hour, minute }) = over FormatComponentRecord
215 formatComponent (HourMinute { hour, minute }) = over FormatComponentRecord
202 (\r -> r { hour = Just (show hour)
216 (\r -> r { hour = Just (show hour)