module Data.Loc.Exception
  ( LocException (..)
  ) where

import Data.Loc.Internal.Prelude

data LocException
  = EmptySpan
  deriving (Eq, Ord)

instance Exception LocException

instance Show LocException where
  showsPrec _ EmptySpan = showString "empty Span"