haskell/esqueleto
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Provide a veryUnsafeCoerceSqlExprValue function that may be useful.

Browse Source
This commit is contained in:
Felipe Lessa 2012-09-09 10:26:56 -03:00
parent c8a96db9da
commit ef771c6eda
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Database/Esqueleto/Internal/Sql.hs
View File

@ -30,6 +30,7 @@ module Database.Esqueleto.Internal.Sql
, Mode(..) , Mode(..)
, Escape , Escape
, SqlSelect , SqlSelect
, veryUnsafeCoerceSqlExprValue
) where ) where
import Control.Applicative (Applicative(..), (<$>)) import Control.Applicative (Applicative(..), (<$>))
@ -343,6 +344,13 @@ unsafeSqlBinOp op (ERaw p1 f1) (ERaw p2 f2) = ERaw Parens f
, vals1 <> vals2 ) , vals1 <> vals2 )
-- | (Internal) Coerce a type of a 'SqlExpr (Value a)' into
-- another 'SqlExpr (Value b)'. You should /not/ use this
-- function unless you know what you're doing!
veryUnsafeCoerceSqlExprValue :: SqlExpr (Value a) -> SqlExpr (Value b)
veryUnsafeCoerceSqlExprValue (ERaw p f) = ERaw p f
---------------------------------------------------------------------- ----------------------------------------------------------------------