do not accept enter in y/n questions

1 files changed, 2 insertions, 2 deletions

diff --git a/test/runTests.hs b/test/runTests.hs
index f3021a2e..a9fb4e7f 100644
--- a/test/runTests.hs
+++ b/test/runTests.hs
@@ -53,8 +53,8 @@ splitExtensions' fn = case splitExtension fn of
 getYNChar = do
     c <- getChar
     case c of
-        _ | c `elem` ("yY\n" :: String) -> putChar '\n' >> return True
-          | c `elem` ("nN\n" :: String) -> putChar '\n' >> return False
+        _ | c `elem` ("yY" :: String) -> putChar '\n' >> return True
+          | c `elem` ("nN" :: String) -> putChar '\n' >> return False
           | otherwise -> getYNChar
 
 showTime delta