Merge pull request #869 from dcousens/patch-1

X.P: Fix some typos in comments
This commit is contained in:
Tony Zorman 2024-01-24 14:40:44 +01:00 committed by GitHub
commit d54d37e344
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