style fix

This commit is contained in:
Jose Duran 2019-09-30 15:19:20 -05:00
parent ba650748f0
commit ced45b0c4e
3 changed files with 2 additions and 3 deletions

View File

@ -49,7 +49,6 @@ library
, bytestring , bytestring
, conduit >=1.3 , conduit >=1.3
, monad-logger , monad-logger
, mtl
, persistent >=2.10.0 && <2.11 , persistent >=2.10.0 && <2.11
, resourcet >=1.2 , resourcet >=1.2
, tagged >=0.2 , tagged >=0.2

View File

@ -2883,4 +2883,4 @@ insertSelect = void . insertSelectCount
-- | Insert a 'PersistField' for every selected value, return the count afterward -- | Insert a 'PersistField' for every selected value, return the count afterward
insertSelectCount :: (MonadIO m, PersistEntity a) => insertSelectCount :: (MonadIO m, PersistEntity a) =>
SqlQuery (SqlExpr (Insertion a)) -> SqlWriteT m Int64 SqlQuery (SqlExpr (Insertion a)) -> SqlWriteT m Int64
insertSelectCount = rawEsqueleto INSERT_INTO . fmap EInsertFinal insertSelectCount = rawEsqueleto INSERT_INTO . fmap EInsertFinal

View File

@ -147,4 +147,4 @@ import Database.Persist.Sql hiding
, selectKeysList, deleteCascadeWhere, (=.), (+=.), (-=.), (*=.), (/=.) , selectKeysList, deleteCascadeWhere, (=.), (+=.), (-=.), (*=.), (/=.)
, (==.), (!=.), (<.), (>.), (<=.), (>=.), (<-.), (/<-.), (||.) , (==.), (!=.), (<.), (>.), (<=.), (>=.), (<-.), (/<-.), (||.)
, listToJSON, mapToJSON, getPersistMap, limitOffsetOrder, selectSource , listToJSON, mapToJSON, getPersistMap, limitOffsetOrder, selectSource
, update , count) , update , count )