module H2JVM.Internal.Util (bug) where

import GHC.Stack (HasCallStack)

-- | Raise an internal error. This simply throws an imprecise exception, but adds a more informative prefix.
bug :: HasCallStack => String -> a
bug :: forall a. HasCallStack => String -> a
bug String
msg = String -> a
forall a. HasCallStack => String -> a
error (String -> a) -> String -> a
forall a b. (a -> b) -> a -> b
$ String
"Internal bug in h2jvm: " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> String
msg