diff --git a/System/Console/Haskeline.hs b/System/Console/Haskeline.hs
index 78e70fceaedd80ab8843c360b56b99a3b77e3851..b40061e21062e50b824f3ca35e837f7a87a46df0 100644
--- a/System/Console/Haskeline.hs
+++ b/System/Console/Haskeline.hs
@@ -255,10 +255,10 @@ withReposition tops prefix s f = do
 
 {- | Reads one character of input.  Ignores non-printable characters.
 
-If stdin is a terminal, then the character will be read without waiting for a newline.
+If stdin is a terminal, the character will be read without waiting for a newline.
 
-If stdin is not a terminal, then 'getInputChar' will read a newline if one
-is immediately available after the input character.
+If stdin is not a terminal, a newline will be read if it is immediately
+available after the input character.
 -}
 getInputChar :: MonadException m => String -- ^ The input prompt
                     -> InputT m (Maybe Char)