simon/emi5
Archived
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Derive Eq for Vertex

Browse source
This commit is contained in:
Simon Bruder 2022-12-27 20:01:25 +01:00
parent 5d956a3d89
commit d823f5b33c
Signed by: simon
GPG key ID: 8D3C82F9F309F8EC
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
genstar/Main.hs
View file

@ -4,7 +4,7 @@ import Control.Monad (join)
import Test.QuickCheck (Arbitrary (arbitrary)) import Test.QuickCheck (Arbitrary (arbitrary))
-- | One point of a path, consisting of its \(x\) and \(y\) coordinates. -- | 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 instance Show Vertex where
show (Point (x, y)) = show x ++ " " ++ show y show (Point (x, y)) = show x ++ " " ++ show y