From d823f5b33c4eccbaedd8dd3feef0140e6258ff07 Mon Sep 17 00:00:00 2001 From: Simon Bruder Date: Tue, 27 Dec 2022 20:01:25 +0100 Subject: [PATCH] Derive Eq for Vertex --- genstar/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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