tracer/src/Types/MindMap.hs
2018-06-24 00:41:51 +02:00

16 lines
266 B
Haskell

module Types.MindMap where
import Linear (V2(..))
data MMNode = MMNode
{ mmPos :: V2 Double
, mmId :: Int
}
deriving (Show)
instance Eq MMNode where
n1 == n2 = mmId n1 == mmId n2
instance Ord MMNode where
compare n1 n2 = compare (mmId n1) (mmId n2)