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