module Chiasma.Data.LayoutError where

newtype LayoutError =
  LayoutError { LayoutError -> Text
unLayoutError :: Text }
  deriving stock (LayoutError -> LayoutError -> Bool
(LayoutError -> LayoutError -> Bool)
-> (LayoutError -> LayoutError -> Bool) -> Eq LayoutError
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: LayoutError -> LayoutError -> Bool
== :: LayoutError -> LayoutError -> Bool
$c/= :: LayoutError -> LayoutError -> Bool
/= :: LayoutError -> LayoutError -> Bool
Eq, Int -> LayoutError -> ShowS
[LayoutError] -> ShowS
LayoutError -> String
(Int -> LayoutError -> ShowS)
-> (LayoutError -> String)
-> ([LayoutError] -> ShowS)
-> Show LayoutError
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> LayoutError -> ShowS
showsPrec :: Int -> LayoutError -> ShowS
$cshow :: LayoutError -> String
show :: LayoutError -> String
$cshowList :: [LayoutError] -> ShowS
showList :: [LayoutError] -> ShowS
Show, (forall x. LayoutError -> Rep LayoutError x)
-> (forall x. Rep LayoutError x -> LayoutError)
-> Generic LayoutError
forall x. Rep LayoutError x -> LayoutError
forall x. LayoutError -> Rep LayoutError x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cfrom :: forall x. LayoutError -> Rep LayoutError x
from :: forall x. LayoutError -> Rep LayoutError x
$cto :: forall x. Rep LayoutError x -> LayoutError
to :: forall x. Rep LayoutError x -> LayoutError
Generic)
  deriving newtype (String -> LayoutError
(String -> LayoutError) -> IsString LayoutError
forall a. (String -> a) -> IsString a
$cfromString :: String -> LayoutError
fromString :: String -> LayoutError
IsString)