{-# LANGUAGE OverloadedStrings #-} module Model.Paginate.SQL where import qualified Data.ByteString as BS import Data.Monoid ((<>)) import Database.PostgreSQL.Typed.Dynamic (pgLiteralRep) import Model.Paginate paginateSQL :: Paginate -> BS.ByteString paginateSQL (Paginate o l) = "LIMIT " <> pgLiteralRep l <> " OFFSET " <> pgLiteralRep o