Derive Eq for Vertex

2022-12-27 20:01:25 +01:00 · 2022-12-27 20:01:25 +01:00 · d823f5b33c
parent 5d956a3d89
commit d823f5b33c
1 changed files with 1 additions and 1 deletions
--- a/genstar/Main.hs
+++ b/genstar/Main.hs
@ -4,7 +4,7 @@ import Control.Monad (join)
 import Test.QuickCheck (Arbitrary (arbitrary))

 -- | One point of a path, consisting of its \(x\) and \(y\) coordinates.
-newtype Vertex = Point (Double, Double)
+newtype Vertex = Point (Double, Double) deriving (Eq)

 instance Show Vertex where
  show (Point (x, y)) = show x ++ " " ++ show y