fingerprint/mtlstats
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

changed promptFunctionKey to promptSpecialKey

This commit is contained in:
Jonathan Lamothe 2019-09-19 02:45:50 -04:00
parent 3d705c4e6d
commit d4cfbcb968
2 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/Mtlstats/Prompt.hs
View File

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

10
src/Mtlstats/Types.hs
View File

@ -430,14 +430,14 @@ instance ToJSON GameStats where
-- | Defines a user prompt -- | Defines a user prompt
data Prompt = Prompt data Prompt = Prompt
{ promptDrawer :: ProgState -> C.Update () { promptDrawer :: ProgState -> C.Update ()
-- ^ Draws the prompt to thr screen -- ^ Draws the prompt to thr screen
, promptCharCheck :: Char -> Bool , promptCharCheck :: Char -> Bool
-- ^ Determines whether or not the character is valid -- ^ Determines whether or not the character is valid
, promptAction :: String -> Action () , promptAction :: String -> Action ()
-- ^ Action to perform when the value is entered -- ^ Action to perform when the value is entered
, promptFunctionKey :: Integer -> Action () , promptSpecialKey :: C.Key -> Action ()
-- ^ Action to perform when a function key is pressed -- ^ Action to perform when a special key is pressed
} }
makeLenses ''ProgState makeLenses ''ProgState