@@ -2,6 +2,7 @@
22module Main where
33
44import Control.Monad
5+import Data.Char
56import Data.List
67import Data.Maybe
78import qualified Data.Set as S
@@ -13,7 +14,6 @@ import System.Exit
1314import System.Info
1415import System.IO
1516import System.Process
16−import Text.Regex
1717
1818-- Because GHC earlier than 7.8 lacks setEnv
1919-- Install the setenv package on Windows.
@@ -46,7 +46,7 @@ showDiff conf = Diff `S.member` (flags conf)
4646doUpdate conf = Update `S.member` (flags conf)
4747
4848checkTestName :: String -> Bool
49−checkTestName d = (matchRegex (mkRegex "[0-9][0-9][0-9]") d /= Nothing)
49+checkTestName d = (all isDigit $ take 3 $ reverse d)
5050 && (not $ isInfixOf "disabled" d)
5151
5252enumTests :: IO [String]