{"action":"closed","issue":{"url":"https://api.github.com/repos/nick8325/quickcheck/issues/32","labels_url":"https://api.github.com/repos/nick8325/quickcheck/issues/32/labels{/name}","comments_url":"https://api.github.com/repos/nick8325/quickcheck/issues/32/comments","events_url":"https://api.github.com/repos/nick8325/quickcheck/issues/32/events","html_url":"https://github.com/nick8325/quickcheck/issues/32","id":48981922,"number":32,"title":"QuickCheck swallows UserInterrupt in callbacks","user":{"login":"sol","id":461132,"avatar_url":"https://avatars.githubusercontent.com/u/461132?v=3","gravatar_id":"","url":"https://api.github.com/users/sol","html_url":"https://github.com/sol","followers_url":"https://api.github.com/users/sol/followers","following_url":"https://api.github.com/users/sol/following{/other_user}","gists_url":"https://api.github.com/users/sol/gists{/gist_id}","starred_url":"https://api.github.com/users/sol/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/sol/subscriptions","organizations_url":"https://api.github.com/users/sol/orgs","repos_url":"https://api.github.com/users/sol/repos","events_url":"https://api.github.com/users/sol/events{/privacy}","received_events_url":"https://api.github.com/users/sol/received_events","type":"User","site_admin":false},"labels":[],"state":"closed","locked":false,"assignee":null,"milestone":null,"comments":5,"created_at":"2014-11-16T12:41:44Z","updated_at":"2015-02-09T20:24:52Z","closed_at":"2015-02-09T20:24:52Z","body":"### Steps to reproduce\r\n\r\n```haskell\r\n-- file Main.hs\r\nimport Test.QuickCheck\r\nimport Test.QuickCheck.State\r\nimport Test.QuickCheck.Property\r\n\r\nmain :: IO ()\r\nmain = quickCheckWithResult args (callback progress prop) >>= print\r\n  where\r\n    prop :: [Int] -> Bool\r\n    prop xs = (reverse . reverse) xs == xs\r\n\r\n    args = stdArgs {maxSuccess = 100000, chatty = False}\r\n\r\n    progress = PostTest NotCounterexample $ \\st _ -> (print $ numSuccessTests st)\r\n```\r\n\r\n```\r\n$ ghci Main.hs\r\n*Main> :main\r\n```\r\n\r\nWhile the test is running, press `ctrl-c`.\r\n\r\n**Expected result:**\r\n\r\n * The program is terminated immediately (the `UserInterrupt` exception is propagated, so that the default exception handler kicks in)\r\n\r\n**Actual result:**\r\n\r\nWith high probability\r\n\r\n  * the test keeps running\r\n  * the result is `Success`, with `output` set to `\"*** Exception in callback: user interrupt\\n+++ OK, passed 100000 tests.\\n\"`"}}