module BDCS.RPM.Requirements(mkGroupRequirement,
mkRequirement)
where
import Database.Esqueleto(Key)
import qualified Data.Text as T
import BDCS.DB(GroupRequirements(..), Groups(..), Requirements(..))
import qualified BDCS.ReqType as RT
{-# ANN module "HLint: ignore Eta reduce" #-}
mkGroupRequirement :: Key Groups -> Key Requirements -> GroupRequirements
mkGroupRequirement groupId reqId =
GroupRequirements groupId reqId
mkRequirement :: RT.ReqContext -> RT.ReqStrength -> T.Text -> Requirements
mkRequirement context strength expr =
Requirements RT.RPM context strength expr