module Language.PureScript.Crash (HasCallStack, internalError) where

import Prelude

import GHC.Stack (HasCallStack)

-- | Exit with an error message and a crash report link.
internalError :: HasCallStack => String -> a
internalError :: forall a. HasCallStack => String -> a
internalError =
  forall a. HasCallStack => String -> a
error
  forall b c a. (b -> c) -> (a -> b) -> a -> c
. (String
"An internal error occurred during compilation: " forall a. [a] -> [a] -> [a]
++)
  forall b c a. (b -> c) -> (a -> b) -> a -> c
. (forall a. [a] -> [a] -> [a]
++ String
"\nPlease report this at https://github.com/purescript/purescript/issues")