From 5eeb8ca9fc2f8f65f41631bb159b8bd7765d6009 Mon Sep 17 00:00:00 2001 From: Julian Ospald Date: Fri, 13 Jan 2023 00:26:15 +0800 Subject: [PATCH] Fix windows --- lib/GHCup/Types.hs | 3 +++ 1 file changed, 3 insertions(+) diff --git a/lib/GHCup/Types.hs b/lib/GHCup/Types.hs index ab7c33d..acd128e 100644 --- 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