module Util.Exception
  ( TextException (..)
  ) where

import Fmt (Buildable(..), pretty)
import qualified Text.Show

data TextException = TextException Text
instance Exception TextException

instance Buildable TextException where
  build (TextException desc) = build desc

instance Show TextException where
  show = pretty