{-# LANGUAGE RecordWildCards #-}
module BDCS.Projects(findProject,
getProject,
insertProject,
projects)
where
import Control.Monad.IO.Class(MonadIO)
import qualified Data.Text as T
import Database.Esqueleto
import BDCS.DB
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