@@ -14,7 +14,7 @@ type Path = [Attribute]
15readNixpkgAttributeSet :: IO (Set Attribute)
15readNixpkgAttributeSet :: IO (Set Attribute)
16readNixpkgAttributeSet = do
16readNixpkgAttributeSet = do
17− buf <- readProcess "nix-env" ["-qaP", "--json"] ""
17+ buf <- readProcess "nix-env" ["-qaP", "--json", "-f<nixpkgs>"] ""
18 let pkgmap :: Either String (Map Attribute JSON.Object)
18 let pkgmap :: Either String (Map Attribute JSON.Object)
19 pkgmap = JSON.eitherDecodeStrict (UTF8.toRep (UTF8.fromString buf))
19 pkgmap = JSON.eitherDecodeStrict (UTF8.toRep (UTF8.fromString buf))
20 either fail (return . Map.keysSet) pkgmap
20 either fail (return . Map.keysSet) pkgmap