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

Remove unsafeFromJust and add flattenMaybe.

Browse Source
This commit is contained in:
Kei Hibino 2013-05-21 15:54:40 +09:00
parent 0dd3915711
commit 98af8b417b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
relational-join/src/Database/Relational/Query/Expr.hs
View File

@ -7,7 +7,7 @@ module Database.Relational.Query.Expr (
valueExpr, valueExpr,
just, unsafeFromJust just, flattenMaybe
) where ) where
import Prelude hiding (and, or) import Prelude hiding (and, or)
@ -73,5 +73,5 @@ valueExpr = Expr . showConstantSQL
just :: Expr ft -> Expr (Maybe ft) just :: Expr ft -> Expr (Maybe ft)
just = Expr . showExpr just = Expr . showExpr
unsafeFromJust :: Expr (Maybe ft) -> Expr ft flattenMaybe :: Expr (Maybe (Maybe ft)) -> Expr (Maybe ft)
unsafeFromJust = Expr . showExpr flattenMaybe = Expr . showExpr