git.iko.soy/rel8
on 8fefc24 help sign in
rel8/src/Rel8/Query/Limit.hs
23 lines 373 B history raw
1module Rel8.Query.Limit
2 ( limit
3 , offset
4 )
5where
7-- base
8import Prelude
10-- opaleye
11import qualified Opaleye
13-- rel8
14import Rel8.Query ( Query )
15import Rel8.Query.Opaleye ( mapOpaleye )
18limit :: Word -> Query a -> Query a
19limit = mapOpaleye . Opaleye.limit . fromIntegral
22offset :: Word -> Query a -> Query a
23offset = mapOpaleye . Opaleye.offset . fromIntegral