khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2024-12-13 07:56:32 +03:00
Code Issues Projects Releases Wiki Activity

Add 'just' for Projection.

Browse Source
This commit is contained in:
Kei Hibino 2013-05-19 14:57:06 +09:00
parent d202a5700a
commit 827cf74660
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
relational-join/src/Database/Relational/Query/Projection.hs
View File

@ -9,7 +9,9 @@ module Database.Relational.Query.Projection (
compose, fromQualifiedSubQuery,
pi, piMaybe, flattenMaybe
pi, piMaybe, flattenMaybe,
just
) where
import Prelude hiding ((!!), pi)
@ -94,3 +96,6 @@ flattenMaybe (Composed pus) = Composed pus
piMaybe :: PersistableWidth b => Projection (Maybe a) -> Pi a b -> Projection (Maybe b)
piMaybe = unsafeProject persistableWidth
just :: Projection r -> Projection (Maybe r)
just (Composed us) = Composed us