{-# LANGUAGE OverloadedStrings #-}
module BDCS.Packages(filesInPackage,
findPackage,
insertPackageName)
where
import Control.Monad.IO.Class(MonadIO)
import qualified Data.Text as T
import Database.Esqueleto
import BDCS.DB
import BDCS.KeyValue(insertKeyValue)
import BDCS.KeyType
filesInPackage :: MonadIO m => T.Text -> SqlPersistT m [T.Text]
filesInPackage name = do
results <- select $ from $ \(files `InnerJoin` key_val `InnerJoin` file_key_values) -> do
on $ key_val ^. KeyValId ==. file_key_values ^. FileKeyValuesKey_val_id &&.
file_key_values ^. FileKeyValuesFile_id ==. files ^. FilesId
where_ $ key_val ^. KeyValKey_value ==. val (TextKey "packageName") &&.
key_val ^. KeyValVal_value ==. just (val name)
return $ files ^. FilesPath
return $ map unValue results
insertPackageName :: MonadIO m => T.Text -> SqlPersistT m (Key KeyVal)
insertPackageName packageName =
findPackage packageName `orDo` insertKeyValue (TextKey "packageName") (Just packageName) Nothing
findPackage :: MonadIO m => T.Text -> SqlPersistT m (Maybe (Key KeyVal))
findPackage name = firstKeyResult $
select $ from $ \pkg -> do
where_ $ pkg ^. KeyValKey_value ==. val (TextKey "packageName") &&.
pkg ^. KeyValVal_value ==. just (val name)
limit 1
return $ pkg ^. KeyValId