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