module Sqel.Data.Order where import Sqel.Data.Sql (ToSql (toSql), sql) data Order = Asc | Desc | Using Text deriving stock (Order -> Order -> Bool forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a /= :: Order -> Order -> Bool $c/= :: Order -> Order -> Bool == :: Order -> Order -> Bool $c== :: Order -> Order -> Bool Eq, Int -> Order -> ShowS [Order] -> ShowS Order -> String forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a showList :: [Order] -> ShowS $cshowList :: [Order] -> ShowS show :: Order -> String $cshow :: Order -> String showsPrec :: Int -> Order -> ShowS $cshowsPrec :: Int -> Order -> ShowS Show, forall x. Rep Order x -> Order forall x. Order -> Rep Order x forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep Order x -> Order $cfrom :: forall x. Order -> Rep Order x Generic) instance ToSql Order where toSql :: Order -> Sql toSql = \case Order Asc -> Sql "asc" Order Desc -> Sql "desc" Using Text expr -> [sql|using ##{expr}|]