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

@ -290,14 +290,14 @@ data XPPosition = Top
| Bottom
-- | Prompt will be placed in the center horizontally and
-- in the certain place of screen vertically. If it's in the upper
-- part of the screen, completion window will be placed below(like
-- in 'Top') and otherwise above(like in 'Bottom')
-- part of the screen, completion window will be placed below (like
-- in 'Top') and otherwise above (like in 'Bottom')
| CenteredAt { xpCenterY :: Rational
-- ^ Rational between 0 and 1, giving
-- 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