From 16b59a6257a81159f9cdbb802ebeca62b54315eb Mon Sep 17 00:00:00 2001 From: Tom Sydney Kerckhove Date: Wed, 25 Oct 2017 16:35:04 +0200 Subject: [PATCH] Make events orderable --- src/Brick/Types/Internal.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Brick/Types/Internal.hs b/src/Brick/Types/Internal.hs index 7755723..445b09b 100644 --- a/src/Brick/Types/Internal.hs +++ b/src/Brick/Types/Internal.hs @@ -133,7 +133,7 @@ data Direction = Up data Location = Location { loc :: (Int, Int) -- ^ (Column, Row) } - deriving (Show, Eq) + deriving (Show, Eq, Ord) suffixLenses ''Location @@ -210,7 +210,7 @@ data BrickEvent n e = VtyEvent Event -- ^ A mouse-up event on the specified region was -- received. The 'n' value is the resource name of -- the clicked widget (see 'clickable'). - deriving (Show, Eq) + deriving (Show, Eq, Ord) data RenderState n = RS { viewportMap :: M.Map n Viewport