提交 a1d89472 编写于 作者: V Vidar Holen

Fix broken test stripping

上级 683a30ab
...@@ -39,8 +39,7 @@ import Data.Maybe ...@@ -39,8 +39,7 @@ import Data.Maybe
import Data.Semigroup import Data.Semigroup
import Test.QuickCheck.All (forAllProperties) import Test.QuickCheck.All (forAllProperties)
import Test.QuickCheck.Test (maxSuccess, quickCheckWithResult, import Test.QuickCheck.Test (maxSuccess, quickCheckWithResult, stdArgs)
stdArgs)
type Analysis = AnalyzerM () type Analysis = AnalyzerM ()
type AnalyzerM a = RWS Parameters [TokenComment] Cache a type AnalyzerM a = RWS Parameters [TokenComment] Cache a
......
...@@ -29,7 +29,7 @@ detestify() { ...@@ -29,7 +29,7 @@ detestify() {
} }
/LANGUAGE TemplateHaskell/ { next; } /LANGUAGE TemplateHaskell/ { next; }
/^import Test\./ { next; } /^import.*Test\./ { next; }
/^module/ { /^module/ {
sub(/,[^,)]*runTests/, ""); sub(/,[^,)]*runTests/, "");
......
Markdown is supported
0% .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑!
想要评论请 注册