X.P: Fix some typos in comments

This commit is contained in:
Daniel Cousens 2024-01-25 00:17:18 +11:00 committed by GitHub
parent f3ee6289ec
commit 903e50a65c
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194

View File

@ -297,7 +297,7 @@ data XPPosition = Top
-- y coordinate of center of the prompt relative to the screen height.
, xpWidth :: Rational
-- ^ Rational between 0 and 1, giving
-- width of the prompt relatave to the screen width.
-- width of the prompt relative to the screen width.
}
deriving (Show,Read)
@ -445,7 +445,7 @@ setCommand xs s = s { commandHistory = (commandHistory s) { W.focus = xs }}
setInput :: String -> XP ()
setInput = modify . setCommand
-- | Returns the current input string. Intented for use in custom keymaps
-- | Returns the current input string. Intended for use in custom keymaps
-- where 'get' or similar can't be used to retrieve it.
getInput :: XP String
getInput = gets command