ilyakooo0/vty
1
0
Fork 0
mirror of https://github.com/ilyakooo0/vty.git synced 2024-11-29 08:49:40 +03:00
Code Issues Projects Releases Wiki Activity

Merge pull request #234 from iphydf/unpack

Browse Source 
perf: Mark event data types as strict; unpack some fields.
This commit is contained in:
Jonathan Daugherty 2022-03-09 14:47:46 -08:00 committed by GitHub
commit 345f66bba5
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Graphics/Vty/Input/Classify/Types.hs
View File

@ -1,5 +1,6 @@
-- | This module exports the input classification type to avoid import -- | This module exports the input classification type to avoid import
-- cycles between other modules that need this. -- cycles between other modules that need this.
{-# StrictData #-}
module Graphics.Vty.Input.Classify.Types module Graphics.Vty.Input.Classify.Types
( KClass(..) ( KClass(..)
) )

5
src/Graphics/Vty/Input/Events.hs
View File

@ -1,4 +1,5 @@
{-# Language DeriveGeneric #-} {-# Language DeriveGeneric #-}
{-# Language StrictData #-}
module Graphics.Vty.Input.Events where module Graphics.Vty.Input.Events where
import Control.DeepSeq import Control.DeepSeq
@ -15,10 +16,10 @@ import GHC.Generics
-- --
-- * Actually, support for most of these but KEsc, KChar, KBS, and -- * Actually, support for most of these but KEsc, KChar, KBS, and
-- KEnter vary by terminal and keyboard. -- KEnter vary by terminal and keyboard.
data Key = KEsc | KChar Char | KBS | KEnter data Key = KEsc | KChar {-# UNPACK #-} Char | KBS | KEnter
| KLeft | KRight | KUp | KDown | KLeft | KRight | KUp | KDown
| KUpLeft | KUpRight | KDownLeft | KDownRight | KCenter | KUpLeft | KUpRight | KDownLeft | KDownRight | KCenter
| KFun Int | KBackTab | KPrtScr | KPause | KIns | KFun {-# UNPACK #-} Int | KBackTab | KPrtScr | KPause | KIns
| KHome | KPageUp | KDel | KEnd | KPageDown | KBegin | KMenu | KHome | KPageUp | KDel | KEnd | KPageDown | KBegin | KMenu
deriving (Eq,Show,Read,Ord,Generic) deriving (Eq,Show,Read,Ord,Generic)