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

import Data.List (dropWhileEnd)

import Test.Tasty.AutoCollect.GHC

autocollectError :: String -> a
autocollectError :: forall a. String -> a
autocollectError String
msg =
  String -> a
forall a. HasCallStack => String -> a
pgmError (String -> a) -> ([String] -> String) -> [String] -> a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Char -> Bool) -> String -> String
forall a. (a -> Bool) -> [a] -> [a]
dropWhileEnd (Char -> Char -> Bool
forall a. Eq a => a -> a -> Bool
== Char
'\n') (String -> String) -> ([String] -> String) -> [String] -> String
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
    ]