Commit d0591946 authored by Andres Löh's avatar Andres Löh
Browse files

started the solver interface conversion

parent f7656599
......@@ -48,8 +48,7 @@ module Distribution.Client.Dependency (
) where
import Distribution.Client.Dependency.TopDown (topDownResolver)
import Distribution.Client.Dependency.Modular.IndexConversion ()
import Distribution.Client.Dependency.Modular.Solver ()
import Distribution.Client.Dependency.Modular ()
import qualified Distribution.Client.PackageIndex as PackageIndex
import Distribution.Client.PackageIndex (PackageIndex)
import qualified Distribution.Client.InstallPlan as InstallPlan
......
......@@ -8,11 +8,27 @@ module Distribution.Client.Dependency.Modular where
-- and finally, we have to convert back the resulting install
-- plan.
import Distribution.Client.Dependency.Types
import Distribution.Client.Dependency.Modular.IndexConversion
( convPIs )
import Distribution.Client.Dependency.Modular.Log
( logToProgress )
import Distribution.Client.Dependency.Modular.Solver
( defaultSolver )
import Distribution.Client.Dependency.Types
( DependencyResolver )
import Distribution.System
( Platform(..) )
modularSolver :: DependencyResolver
modularSolver (Platform arch os) cid iidx sidx pprefs pcs pns =
undefined
fmap undefined $ -- convert install plan
logToProgress $
defaultSolver idx gprefs uprefs goals gcs gfcs lfcs
where
idx = convPIs os arch cid undefined sidx
gprefs = undefined
uprefs = undefined
goals = undefined
gcs = undefined
gfcs = undefined
lfcs = undefined
......@@ -54,6 +54,7 @@ Executable cabal
Distribution.Client.Dependency.TopDown.Constraints
Distribution.Client.Dependency.TopDown.Types
Distribution.Client.Dependency.Types
Distribution.Client.Dependency.Modular
Distribution.Client.Dependency.Modular.Assignment
Distribution.Client.Dependency.Modular.Builder
Distribution.Client.Dependency.Modular.Configured
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment