git.iko.soy/rel8
on 00a36f5 help sign in
rel8/src/Rel8/Query/Opaleye.hs
34 lines 681 B history raw
1module Rel8.Query.Opaleye
2 ( fromOpaleye
3 , toOpaleye
4 , mapOpaleye
5 , zipOpaleyeWith
6 )
7where
9-- base
10import Prelude
12-- opaleye
13import qualified Opaleye.Select as Opaleye
15-- rel8
16import {-# SOURCE #-} Rel8.Query ( Query( Query ) )
19fromOpaleye :: Opaleye.Select a -> Query a
20fromOpaleye = Query
23toOpaleye :: Query a -> Opaleye.Select a
24toOpaleye (Query a) = a
27mapOpaleye :: (Opaleye.Select a -> Opaleye.Select b) -> Query a -> Query b
28mapOpaleye f = fromOpaleye . f . toOpaleye
31zipOpaleyeWith :: ()
32 => (Opaleye.Select a -> Opaleye.Select b -> Opaleye.Select c)
33 -> Query a -> Query b -> Query c
34zipOpaleyeWith f a b = fromOpaleye $ f (toOpaleye a) (toOpaleye b)