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

no basebackend pls

Browse Source
This commit is contained in:
Matt Parsons 2017-09-13 17:23:46 -06:00
parent d621f382bf
commit 1a945d27c8
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -781,9 +781,12 @@ veryUnsafeCoerceSqlExprValueList EEmptyList = throw (UnexpectedCaseErr EmptySqlE
---------------------------------------------------------------------- ----------------------------------------------------------------------
type SqlReadT' m a type SqlReadT' m a = forall backend.
= forall backend ( BackendCompatible SqlBackend backend
. (BackendCompatible SqlBackend backend, SqlBackendCanRead backend) , IsPersistBackend backend
, PersistQueryRead backend
, PersistStoreRead backend, PersistUniqueRead backend
)
=> R.ReaderT backend m a => R.ReaderT backend m a
-- | (Internal) Execute an @esqueleto@ @SELECT@ 'SqlQuery' inside -- | (Internal) Execute an @esqueleto@ @SELECT@ 'SqlQuery' inside
@ -799,7 +802,7 @@ rawSelectSource mode query =
do do
conn <- projectBackend <$> R.ask conn <- projectBackend <$> R.ask
let _ = conn :: SqlBackend let _ = conn :: SqlBackend
res <- run conn res <- R.withReaderT (const conn) (run conn)
return $ (C.$= massage) `fmap` res return $ (C.$= massage) `fmap` res
where where