diff --git a/genstar/Main.hs b/genstar/Main.hs
index fedd766..f6f275d 100644
--- 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