1 module Symantic.Compta.Utils.Error where
2 --import Data.Semigroup (Semigroup(..))
4 import Data.String (String)
7 --import Symantic.Compta.Lang.Rebindable
9 errorWithStack :: HasCallStack => String -> a
10 errorWithStack = error -- (msg <> "\n" <> prettyCallStack callStack)