diff options
author | Péter Diviánszky <divipp@gmail.com> | 2016-02-25 10:51:42 +0100 |
---|---|---|
committer | Péter Diviánszky <divipp@gmail.com> | 2016-02-25 10:51:42 +0100 |
commit | 38601b878db4a5c202e6c6ff7d1da98f86c0e300 (patch) | |
tree | 12ec7ab0be16c3cde1225571de7f403f2bb5c921 | |
parent | c68613d03f2e918ff6e6d0ad05921d1108fe9470 (diff) |
do not accept enter in y/n questions
-rw-r--r-- | test/runTests.hs | 4 |
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 | |||
53 | getYNChar = do | 53 | getYNChar = do |
54 | c <- getChar | 54 | c <- getChar |
55 | case c of | 55 | case c of |
56 | _ | c `elem` ("yY\n" :: String) -> putChar '\n' >> return True | 56 | _ | c `elem` ("yY" :: String) -> putChar '\n' >> return True |
57 | | c `elem` ("nN\n" :: String) -> putChar '\n' >> return False | 57 | | c `elem` ("nN" :: String) -> putChar '\n' >> return False |
58 | | otherwise -> getYNChar | 58 | | otherwise -> getYNChar |
59 | 59 | ||
60 | showTime delta | 60 | showTime delta |