{-# OPTIONS_GHC -O0 -fno-strictness #-}
module ConCat.Oops(oops) where

-- Both -O0 -fno-strictness are necessary to keep ghc 9 from
-- discovering that this bombs.

-- | Pseudo function to fool GHC's divergence checker.
oops :: String -> b
oops :: forall b. String -> b
oops String
str = String -> b
forall a. HasCallStack => String -> a
error (String
"Oops: "String -> String -> String
forall a. [a] -> [a] -> [a]
++String
str)
{-# NOINLINE oops #-}