Fix windows

2023-01-13 00:26:15 +08:00
parent 317a06bbc3
commit 5eeb8ca9fc
1 changed files with 3 additions and 0 deletions
--- a/lib/GHCup/Types.hs
+++ b/lib/GHCup/Types.hs
@@ -414,6 +414,9 @@ data KeyBindings = KeyBindings
  deriving (Show, GHC.Generic)

 instance NFData KeyBindings
+#if defined(IS_WINDOWS)
+instance NFData Key
+#endif

 defaultKeyBindings :: KeyBindings
 defaultKeyBindings = KeyBindings