Fix broken test stripping

This commit is contained in:
Vidar Holen 2018-04-22 14:57:43 -07:00
parent 683a30abde
commit a1d8947297
2 changed files with 2 additions and 3 deletions

View File

@ -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

View File

@ -29,7 +29,7 @@ detestify() {
} }
/LANGUAGE TemplateHaskell/ { next; } /LANGUAGE TemplateHaskell/ { next; }
/^import Test\./ { next; } /^import.*Test\./ { next; }
/^module/ { /^module/ {
sub(/,[^,)]*runTests/, ""); sub(/,[^,)]*runTests/, "");