Derive Eq for Cursor

This allows me to use it with `frpnow`'s `toChanges :: Eq a => Behavior a -> EvStream a`.
This commit is contained in:
Jaro Reinders 2018-01-05 16:00:30 +01:00 committed by GitHub
parent 8a1a128677
commit 2b9272f2b2
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -85,6 +85,7 @@ data Cursor =
| Cursor !Int !Int
-- | Show the cursor at the given absolute terminal column and row
| AbsoluteCursor !Int !Int
deriving Eq
instance NFData Cursor where
rnf c = c `seq` ()