@@ -1,4 +1,4 @@
1−module Runner where
1+module Runner ( run ) where
22
33import Control.Lens
44import Distribution.Nixpkgs.Haskell.Stack
@@ -14,12 +14,15 @@ run = do
1414 stackYaml <- either fail pure =<< readStackConfig (opts ^. optStackYaml)
1515 let
1616 pkgConfig = mkPackageConfig (opts ^. optPlatform) (opts ^. optCompilerId)
17− overrideConfig = OverrideConfig
18− { _ocGhc = "ghc802"
19− , _ocStackagePackages = unStackagePackages <$> opts ^. optStackagePackages
20− , _ocStackageConfig = unStackageConfig <$> opts ^. optStackageConfig }
17+ overrideConfig = mkOverrideConfig opts
2118 packages <- traverse (packageDerivation pkgConfig (opts ^. optHackageDb))
2219 $ stackYaml ^. scPackages
2320 let
2421 out = PP.overrideHaskellPackages overrideConfig packages
2522 print out
23+
24+mkOverrideConfig :: Options -> OverrideConfig
25+mkOverrideConfig opts = OverrideConfig
26+ { _ocGhc = "ghc802"
27+ , _ocStackagePackages = unStackagePackages <$> opts ^. optStackagePackages
28+ , _ocStackageConfig = unStackageConfig <$> opts ^. optStackageConfig }