module FRP.Yampa.Diagnostics where
usrErr :: String -> String -> String -> a
usrErr :: forall a. String -> String -> String -> a
usrErr String
mn String
fn String
msg = forall a. HasCallStack => String -> a
error (String
mn forall a. [a] -> [a] -> [a]
++ String
"." forall a. [a] -> [a] -> [a]
++ String
fn forall a. [a] -> [a] -> [a]
++ String
": " forall a. [a] -> [a] -> [a]
++ String
msg)
intErr :: String -> String -> String -> a
intErr :: forall a. String -> String -> String -> a
intErr String
mn String
fn String
msg = forall a. HasCallStack => String -> a
error (String
"[internal error] " forall a. [a] -> [a] -> [a]
++ String
mn forall a. [a] -> [a] -> [a]
++ String
"." forall a. [a] -> [a] -> [a]
++ String
fn forall a. [a] -> [a] -> [a]
++ String
": "
forall a. [a] -> [a] -> [a]
++ String
msg)