module Debian.Debianize.Details
( debianDefaults
) where
import Control.Category ((.))
import Data.Version (Version(Version))
import Debian.Debianize.DebianName (mapCabal, splitCabal)
import Debian.Debianize.Monad (CabalT)
import Debian.Debianize.Prelude ((++=))
import Debian.Debianize.CabalInfo as A (epochMap, debInfo)
import Debian.Debianize.DebInfo as D (execMap)
import Debian.Debianize.VersionSplits (DebBase(DebBase))
import Debian.Relation (BinPkgName(BinPkgName), Relation(Rel))
import Distribution.Package (PackageName(PackageName))
import Prelude hiding ((.))
debianDefaults :: Monad m => CabalT m ()
debianDefaults =
do
A.epochMap ++= (PackageName "HaXml", 1)
A.epochMap ++= (PackageName "HTTP", 1)
(A.debInfo . D.execMap) ++= ("hsx2hs", [[Rel (BinPkgName "hsx2hs") Nothing Nothing]])
mapCabal (PackageName "parsec") (DebBase "parsec3")
splitCabal (PackageName "parsec") (DebBase "parsec2") (Version [3] [])
mapCabal (PackageName "QuickCheck") (DebBase "quickcheck2")
splitCabal (PackageName "QuickCheck") (DebBase "quickcheck1") (Version [2] [])
mapCabal (PackageName "gtk2hs-buildtools") (DebBase "gtk2hs-buildtools")