never executed always true always false

    1 {-# LANGUAGE DeriveGeneric #-}
    2 module Distribution.Client.Types.SourcePackageDb (
    3     SourcePackageDb (..),
    4 ) where
    5 
    6 import Distribution.Client.Compat.Prelude
    7 import Prelude ()
    8 
    9 import Distribution.Types.PackageName  (PackageName)
   10 import Distribution.Types.VersionRange (VersionRange)
   11 
   12 import Distribution.Client.Types.PackageLocation (UnresolvedSourcePackage)
   13 import Distribution.Solver.Types.PackageIndex    (PackageIndex)
   14 
   15 -- | This is the information we get from a @00-index.tar.gz@ hackage index.
   16 --
   17 data SourcePackageDb = SourcePackageDb
   18     { packageIndex       :: PackageIndex UnresolvedSourcePackage
   19     , packagePreferences :: Map PackageName VersionRange
   20     }
   21   deriving (Eq, Generic)
   22 
   23 instance Binary SourcePackageDb