module Polysemy.Db.Data.DbUser where newtype DbUser = DbUser { DbUser -> Text unDbUser :: Text } deriving stock (DbUser -> DbUser -> Bool forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a /= :: DbUser -> DbUser -> Bool $c/= :: DbUser -> DbUser -> Bool == :: DbUser -> DbUser -> Bool $c== :: DbUser -> DbUser -> Bool Eq, Int -> DbUser -> ShowS [DbUser] -> ShowS DbUser -> String forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a showList :: [DbUser] -> ShowS $cshowList :: [DbUser] -> ShowS show :: DbUser -> String $cshow :: DbUser -> String showsPrec :: Int -> DbUser -> ShowS $cshowsPrec :: Int -> DbUser -> ShowS Show, forall x. Rep DbUser x -> DbUser forall x. DbUser -> Rep DbUser x forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep DbUser x -> DbUser $cfrom :: forall x. DbUser -> Rep DbUser x Generic) deriving newtype (String -> DbUser forall a. (String -> a) -> IsString a fromString :: String -> DbUser $cfromString :: String -> DbUser IsString, Eq DbUser DbUser -> DbUser -> Bool DbUser -> DbUser -> Ordering DbUser -> DbUser -> DbUser 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 :: DbUser -> DbUser -> DbUser $cmin :: DbUser -> DbUser -> DbUser max :: DbUser -> DbUser -> DbUser $cmax :: DbUser -> DbUser -> DbUser >= :: DbUser -> DbUser -> Bool $c>= :: DbUser -> DbUser -> Bool > :: DbUser -> DbUser -> Bool $c> :: DbUser -> DbUser -> Bool <= :: DbUser -> DbUser -> Bool $c<= :: DbUser -> DbUser -> Bool < :: DbUser -> DbUser -> Bool $c< :: DbUser -> DbUser -> Bool compare :: DbUser -> DbUser -> Ordering $ccompare :: DbUser -> DbUser -> Ordering Ord) json ''DbUser