src/Symantic/Compta/Utils/Error.hs

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