Merge pull request #3 from f-o-a-m/safareli-patch-1

add Ord
f-o-a-m · Oct 16, 2018 · 7a8fce7 · 7a8fce7
2 parents 72e0aac + 10c544c
commit 7a8fce7
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git a/src/WebMercator/LngLat.purs b/src/WebMercator/LngLat.purs
@@ -15,6 +15,7 @@ import WebMercator.Internal (approximateEqual)
 newtype LngLat = LngLat (Array Number)
 
 derive newtype instance eqLngLat :: Eq LngLat
+derive newtype instance ordLngLat :: Ord LngLat
 instance showLngLat :: Show LngLat where
   show p = "(LngLat.make {lng: " <> show (lng p) <> ", lat: " <> show (lat p) <> "})"
 

diff --git a/src/WebMercator/Pixel.purs b/src/WebMercator/Pixel.purs
@@ -14,6 +14,7 @@ import WebMercator.Internal (approximateEqual)
 newtype Pixel = Pixel (Array Number)
 
 derive newtype instance eqPixel :: Eq Pixel
+derive newtype instance ordPixel :: Ord Pixel
 instance showPixel :: Show Pixel where
   show p = "(Pixel.make {x: " <> show (x p) <> ", y: " <> show (y p) <> "})"