@@ -13,7 +13,7 @@ import Data.Map.Strict ( Map )
1313import Data.Maybe
1414import Data.Set ( Set )
1515import qualified Data.Set as Set
16−import Text.PrettyPrint.HughesPJClass
16+import Distribution.Text
1717import Language.Nix
1818import System.Process
1919import Control.Lens
@@ -25,7 +25,7 @@ readNixpkgPackageMap nixpkgs attrpath = fmap identifierSet2PackageMap (readNixpk
2525
2626readNixpkgSet :: FilePath -> Maybe Path -> IO (Set String)
2727readNixpkgSet nixpkgs attrpath = do
28− let extraArgs = maybe [] (\p -> ["-A", render (pPrint p)]) attrpath
28+ let extraArgs = maybe [] (\p -> ["-A", display p]) attrpath
2929 (_, Just h, _, _) <- createProcess (proc "nix-env" (["-qaP", "--json", "-f", nixpkgs] ++ extraArgs))
3030 { std_out = CreatePipe, env = Nothing } -- TODO: ensure that overrides don't screw up our results
3131 buf <- LBS.hGetContents h