module Test.Tasty.AutoCollect.Error (
  autocollectError,
) where

import Test.Tasty.AutoCollect.GHC

autocollectError :: String -> a
autocollectError :: String -> a
autocollectError String
msg =
  String -> a
forall a. String -> a
pgmError (String -> a) -> ([String] -> String) -> [String] -> a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. [String] -> String
unlines ([String] -> a) -> [String] -> a
forall a b. (a -> b) -> a -> b
$
    [ String
""
    , String
"******************** tasty-autocollect failure ********************"
    , String
msg
    ]