Minor fix for the zone update.

This commit is contained in:
Philippe Pittoli 2023-07-11 04:46:24 +02:00
parent cf8380fff4
commit 8c1b0b8b76

View File

@ -180,7 +180,7 @@ render state
] ]
where where
sorted = Foldable.foldl (<>) [] sorted = Foldable.foldl (<>) []
$ map (A.sortBy (comparing (_.domain))) $ map (A.sortBy (comparing (_.id)))
$ map NonEmpty.toArray $ map NonEmpty.toArray
$ A.groupAllBy (comparing (_.t)) state._srr $ A.groupAllBy (comparing (_.t)) state._srr