module Polysemy.Db.Data.DbName where

newtype DbName =
  DbName { DbName -> Text
unDbName :: Text }
  deriving stock (DbName -> DbName -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DbName -> DbName -> Bool
$c/= :: DbName -> DbName -> Bool
== :: DbName -> DbName -> Bool
$c== :: DbName -> DbName -> Bool
Eq, Int -> DbName -> ShowS
[DbName] -> ShowS
DbName -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DbName] -> ShowS
$cshowList :: [DbName] -> ShowS
show :: DbName -> String
$cshow :: DbName -> String
showsPrec :: Int -> DbName -> ShowS
$cshowsPrec :: Int -> DbName -> ShowS
Show, forall x. Rep DbName x -> DbName
forall x. DbName -> Rep DbName x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DbName x -> DbName
$cfrom :: forall x. DbName -> Rep DbName x
Generic)
  deriving newtype (String -> DbName
forall a. (String -> a) -> IsString a
fromString :: String -> DbName
$cfromString :: String -> DbName
IsString, Eq DbName
DbName -> DbName -> Bool
DbName -> DbName -> Ordering
DbName -> DbName -> DbName
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: DbName -> DbName -> DbName
$cmin :: DbName -> DbName -> DbName
max :: DbName -> DbName -> DbName
$cmax :: DbName -> DbName -> DbName
>= :: DbName -> DbName -> Bool
$c>= :: DbName -> DbName -> Bool
> :: DbName -> DbName -> Bool
$c> :: DbName -> DbName -> Bool
<= :: DbName -> DbName -> Bool
$c<= :: DbName -> DbName -> Bool
< :: DbName -> DbName -> Bool
$c< :: DbName -> DbName -> Bool
compare :: DbName -> DbName -> Ordering
$ccompare :: DbName -> DbName -> Ordering
Ord)

json ''DbName