changed promptFunctionKey to promptSpecialKey

src/Mtlstats/Prompt.hs

@@ -66,8 +66,8 @@ promptHandler p (C.EventCharacter c) = let
    modify $ addChar c'
 promptHandler _ (C.EventSpecialKey C.KeyBackspace) =
   modify removeChar
-promptHandler p (C.EventSpecialKey (C.KeyFunction k)) =
-  promptFunctionKey p k
+promptHandler p (C.EventSpecialKey k) =
+  promptSpecialKey p k
 promptHandler _ _ = return ()
 
 -- | Builds a string prompt
@@ -81,7 +81,7 @@ strPrompt pStr act = Prompt
   { promptDrawer     = drawSimplePrompt pStr
   , promptCharCheck  = const True
   , promptAction     = act
-  , promptFunctionKey = const $ return ()
+  , promptSpecialKey = const $ return ()
   }
 
 -- | Builds a numeric prompt
@@ -95,7 +95,7 @@ numPrompt pStr act = Prompt
   { promptDrawer     = drawSimplePrompt pStr
   , promptCharCheck  = isDigit
   , promptAction     = \inStr -> forM_ (readMaybe inStr) act
-  , promptFunctionKey = const $ return ()
+  , promptSpecialKey = const $ return ()
   }
 
 -- | Prompts for the game year

src/Mtlstats/Types.hs

@@ -436,8 +436,8 @@ data Prompt = Prompt
   -- ^ Determines whether or not the character is valid
   , promptAction     :: String -> Action ()
   -- ^ Action to perform when the value is entered
-  , promptFunctionKey :: Integer -> Action ()
-  -- ^ Action to perform when a function key is pressed
+  , promptSpecialKey :: C.Key -> Action ()
+  -- ^ Action to perform when a special key is pressed
   }
 
 makeLenses ''ProgState