15 lines
252 B
Haskell
15 lines
252 B
Haskell
|
|
module Lattice
|
|
( Lattice(..)
|
|
)
|
|
where
|
|
|
|
-- | A range should have this property to be used for navigation.
|
|
class Lattice l where
|
|
(?>) :: l -> l -> Bool
|
|
(<?) :: l -> l -> Bool
|
|
|
|
(?>) = flip (<?)
|
|
(<?) = flip (?>)
|
|
|
|
{-# minimal (?>) | (<?) #-} |