mirror of
https://github.com/khibino/haskell-relational-record.git
synced 2024-12-01 22:02:07 +03:00
17 lines
361 B
Haskell
17 lines
361 B
Haskell
{-# LANGUAGE Arrows #-}
|
|
|
|
import Control.Arrow
|
|
import Opaleye
|
|
|
|
import Person
|
|
import Birthday
|
|
import qualified Person
|
|
import qualified Birthday
|
|
|
|
personAndBirthday :: Query (PersonColumn, BirthdayColumn)
|
|
personAndBirthday = proc () -> do
|
|
p <- personQuery -< ()
|
|
b <- birthdayQuery -< ()
|
|
restrict -< Person.name p .== Birthday.name b
|
|
returnA -< (p, b)
|