{-# options_haddock hide #-}

module Polysemy.Test.Data.TestError where

-- |An error that occured in the test machinery.
newtype TestError =
  TestError { TestError -> Text
unTestError :: Text }
  deriving (TestError -> TestError -> Bool
(TestError -> TestError -> Bool)
-> (TestError -> TestError -> Bool) -> Eq TestError
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TestError -> TestError -> Bool
$c/= :: TestError -> TestError -> Bool
== :: TestError -> TestError -> Bool
$c== :: TestError -> TestError -> Bool
Eq, Int -> TestError -> ShowS
[TestError] -> ShowS
TestError -> String
(Int -> TestError -> ShowS)
-> (TestError -> String)
-> ([TestError] -> ShowS)
-> Show TestError
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [TestError] -> ShowS
$cshowList :: [TestError] -> ShowS
show :: TestError -> String
$cshow :: TestError -> String
showsPrec :: Int -> TestError -> ShowS
$cshowsPrec :: Int -> TestError -> ShowS
Show)
  deriving newtype (String -> TestError
(String -> TestError) -> IsString TestError
forall a. (String -> a) -> IsString a
fromString :: String -> TestError
$cfromString :: String -> TestError
IsString)