circuithub/rel8
1
1
Fork 0
mirror of https://github.com/circuithub/rel8.git synced 2024-09-11 16:05:41 +03:00
Code Issues Projects Releases Wiki Activity

Remove AnExpr

Browse Source
This commit is contained in:
Shane 2021-03-04 11:30:29 +00:00
parent d112076151
commit 8a58e45cb1
No known key found for this signature in database
GPG Key ID: C1D5BF1DE4F6D319
1 changed files with 1 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/Rel8.hs
View File

@ -330,19 +330,6 @@ instance (FromJSON a, ToJSON a, Typeable a) => DBType (JSONEncoded a) where
newtype ReadShow a = ReadShow { fromReadShow :: a }
{-| Anything that has an instance of 'DBType' is an 'Expr'. This class packages that knowledge up. -}
class
( ExprFor (Expr a) a
, ExprFor (Expr (Maybe a)) (Maybe a)
) => AnExpr (a :: Type)
instance
( ExprFor (Expr a) a
, ExprFor (Expr (Maybe a)) (Maybe a)
) => AnExpr a
{-| A @DatabaseType@ describes how to encode and decode a Haskell type to and
from database queries. The @typeName@ is the name of the type in the database,
which is used to accurately type literals.
@ -1016,7 +1003,7 @@ instance (s ~ t, expr ~ Expr, identity ~ Identity, HigherKindedTable t, HConstra
(MkC Dict, MkC x) -> MkC $ monolit x
instance (AnExpr a, DBType a, a ~ b) => Serializable (Expr a) b where
instance (DBType a, a ~ b) => Serializable (Expr a) b where
rowParser inject = fieldWith $ inject $ decode typeInformation
lit = Expr . Opaleye.CastExpr typeName . encode