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
    ]