avoid redundant seq

purebred-mua · Mar 29, 2019 · 1a2d5f5 · 1a2d5f5
1 parent a085315
commit 1a2d5f5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Types.hs b/src/Types.hs
@@ -506,7 +506,7 @@ data Keybinding (v :: ViewName) (ctx :: Name) = Keybinding
 -- There is no 'NFData' instance for 'Vty.Event' and I don't want
 -- to make an orphan instance for it.
 instance NFData (Keybinding v ctx) where
-  rnf (Keybinding ev act) = Keybinding (ev `seq` ev) (force act) `seq` ()
+  rnf (Keybinding ev act) = Keybinding ev (force act) `seq` ()
 
 instance Eq (Keybinding v ctx) where
   (==) (Keybinding a _) (Keybinding b _) = a == b