tracer/src/Types/MindMap.hs

16 lines
266 B
Haskell
Raw Normal View History

2018-06-23 22:41:51 +00:00
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)