Permalink
Browse files

Fix test regex001

Needed to restrict the type of 'try' now that we have extensible exceptions
  • Loading branch information...
1 parent fa0a0a2 commit 8ec1c772cfe4b16ba78b4b56e7c6cff671761c2d @igfoo igfoo committed Sep 19, 2008
Showing with 5 additions and 2 deletions.
  1. +5 −2 tests/ghc-regress/lib/Regex/regex001.hs
@@ -1,8 +1,11 @@
module Main where
-import Control.Exception (try)
+import Control.Exception
import Text.Regex.Posix
-- caused GHC 6.0 to crash, due to regfree'ing the regex after a
-- failed regcomp.
-main = sequence_ [ try ("abc" =~~ "[[[" :: IO Bool) | _ <- [1..10000] ]
+main = sequence_
+ [ try ("abc" =~~ "[[[" :: IO Bool) :: IO (Either IOException Bool)
+ | _ <- [1..10000] ]
+

0 comments on commit 8ec1c77

Please sign in to comment.