1 {-# LANGUAGE OverloadedStrings #-} 2 module Databrary.Model.Paginate.SQL where 3 4 import qualified Data.ByteString as BS 5 import Data.Monoid ((<>)) 6 import Database.PostgreSQL.Typed.Dynamic (pgLiteralRep) 7 8 import Databrary.Model.Paginate 9 10 paginateSQL :: Paginate -> BS.ByteString 11 paginateSQL (Paginate o l) = "LIMIT " <> pgLiteralRep l <> " OFFSET " <> pgLiteralRep o