module BDCS.Projects(findProject,
getProject,
getProjectsLike,
getProjectsTotal,
insertProject,
projects)
where
import Control.Monad.IO.Class(MonadIO)
import Data.Int(Int64)
import qualified Data.Text as T
import Database.Esqueleto
import BDCS.DB
getProjectsLike :: MonadIO m => Maybe Int64 -> Maybe Int64 -> T.Text -> SqlPersistT m ([Projects], Int64)
getProjectsLike (Just ofst) (Just lmt) name = do
results <- select $ from $ \project -> do
where_ $ project ^. ProjectsName `like` val name
orderBy [asc (project ^. ProjectsName)]
offset ofst
limit lmt
return project
total <- firstListResult $
select $ from $ \project -> do
where_ $ project ^. ProjectsName `like` val name
return countRows
return (map entityVal results, total)
getProjectsLike _ _ name = do
results <- select $ from $ \project -> do
where_ $ project ^. ProjectsName `like` val name
orderBy [asc (project ^. ProjectsName)]
return project
total <- firstListResult $
select $ from $ \project -> do
where_ $ project ^. ProjectsName `like` val name
return countRows
return (map entityVal results, total)
getProjectsTotal :: MonadIO m => SqlPersistT m Int64
getProjectsTotal = firstListResult $
select . from $ \(_ :: SqlExpr (Entity Projects)) -> return countRows
projects :: MonadIO m => SqlPersistT m [Projects]
projects = do
vals <- select $ from $ \project -> do
orderBy [asc (project ^. ProjectsName)]
return project
return $ map entityVal vals
findProject :: MonadIO m => T.Text -> SqlPersistT m (Maybe (Key Projects))
findProject name = firstKeyResult $
select $ from $ \proj -> do
where_ $ proj ^. ProjectsName ==. val name
limit 1
return $ proj ^. ProjectsId
getProject :: MonadIO m => Key Projects -> SqlPersistT m (Maybe Projects)
getProject key = firstEntityResult $
select $ from $ \proj -> do
where_ $ proj ^. ProjectsId ==. val key
limit 1
return proj
insertProject :: MonadIO m => Projects -> SqlPersistT m (Key Projects)
insertProject project@Projects{..} =
findProject projectsName `orInsert` project