module Debian.Debianize.Details
( debianDefaultAtoms
, debianVersionSplits
) where
import Data.Map as Map (Map, fromList)
import Data.Version (Version(Version))
import Debian.Debianize.DebianName (mapCabal, splitCabal)
import Debian.Debianize.Types.Atoms as T (epochMap)
import Debian.Debianize.Monad (DebT)
import Debian.Debianize.Prelude ((++=))
import Debian.Debianize.VersionSplits (DebBase(DebBase), VersionSplits, makePackage, insertSplit)
import Distribution.Package (PackageName(PackageName))
debianDefaultAtoms :: Monad m => DebT m ()
debianDefaultAtoms =
do T.epochMap ++= (PackageName "HaXml", 1)
T.epochMap ++= (PackageName "HTTP", 1)
mapCabal (PackageName "Cabal") (DebBase "cabal")
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")
debianVersionSplits :: Map PackageName VersionSplits
debianVersionSplits =
Map.fromList
[ (PackageName "Cabal", makePackage (DebBase "cabal"))
, (PackageName "parsec", insertSplit (Version [3] []) (DebBase "parsec3") (makePackage (DebBase "parsec2")))
, (PackageName "QuickCheck", insertSplit (Version [2] []) (DebBase "quickcheck2") (makePackage (DebBase "quickcheck1")))
, (PackageName "gtk2hs-buildtools", makePackage (DebBase "gtk2hs-buildtools")) ]