Tables.hs

{-|
Module      : Portage.Tables
License     : GPL-3+
Maintainer  : haskell@gentoo.org

Tables of Portage-specific conversions.
-}
module Portage.Tables
  ( set_build_slot
  ) where

import Portage.Dependency.Builder
import Portage.Dependency.Types
import Portage.PackageId

import Data.Monoid

-- | Set the @SLOT@ for a given 'Dependency'.
set_build_slot :: Dependency -> Dependency
set_build_slot = 
  overAtom $ \a@(Atom pn dr (DAttr _ u)) -> 
      case mconcat $ map (First . matches a) slottedPkgs of
          First (Just s) -> Atom pn dr (DAttr s u)
          First Nothing  -> Atom pn dr (DAttr AnyBuildTimeSlot u)
    where
      matches (Atom pn _ _) (nm,s) 
        | pn == nm  = Just s
        | otherwise = Nothing

-- | List of 'PackageName's with their corresponding default 'SlotDepend's.
--
-- For example, dependency @QuickCheck@ has its @SLOT@ always set to @2@.
slottedPkgs :: [(PackageName, SlotDepend)]
slottedPkgs =
  [ (mkPackageName "dev-haskell" "quickcheck", GivenSlot "2=")
  , (mkPackageName "dev-haskell" "hdbc", GivenSlot "2=")
  ]