module Test.Tasty.AutoCollect.Error ( autocollectError, ) where import Test.Tasty.AutoCollect.GHC autocollectError :: String -> a autocollectError :: forall a. String -> a autocollectError String msg = forall a. String -> a pgmError forall b c a. (b -> c) -> (a -> b) -> a -> c . [String] -> String unlines forall a b. (a -> b) -> a -> b $ [ String "" , String "******************** tasty-autocollect failure ********************" , String msg ]