16 lines
266 B
Haskell
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)
|