@@ -31,7 +31,6 @@ data Configuration = Configuration
3131 { _msgDebug :: String -> IO ()
3232 , _msgInfo :: String -> IO ()
3333 , _hackageDb :: DB.Hackage
34− , _pkgset :: PkgSet
3534 }
3635
3736defaultConfiguration :: Configuration
@@ -39,7 +38,6 @@ defaultConfiguration = Configuration
3938 { _msgDebug = hPutStrLn stderr
4039 , _msgInfo = hPutStrLn stderr
4140 , _hackageDb = DB.empty
42− , _pkgset = Set.empty
4341 }
4442
4543type Hackage4Nix a = RWST Configuration () PkgSet IO a
@@ -126,7 +124,7 @@ updateNixPkgs paths = do
126124 }
127125 }
128126 io $ writeFile path (show (disp (normalize (deriv''))))
129− pkgset <- asks (selectLatestVersions . _pkgset)
127+ pkgset <- gets selectLatestVersions
130128 updates' <- flip mapM (Set.elems pkgset) $ \pkg -> do
131129 let Pkg deriv _ _ = pkg
132130 updates <- discoverUpdates (pname deriv) (version deriv)