@@ -191,10 +191,10 @@ handleIO = Exception.handle
191191
192192hpackDirectory :: FilePath -> MaybeT IO (Bool, Cabal.GenericPackageDescription)
193193hpackDirectory dir = do
194− mPackage <- liftIO $ Hpack.readPackageConfig $ dir </> "package.yaml"
194+ mPackage <- liftIO $ Hpack.readPackageConfig "" $ dir </> "package.yaml"
195195 case mPackage of
196196 Left err -> liftIO $ hPutStrLn stderr ("*** hpack error: " ++ show err ++ ". Exiting.") >> exitFailure
197− Right (_, pkg') -> do
197+ Right (pkg', _) -> do
198198 let hpackOutput = Hpack.renderPackage Hpack.defaultRenderSettings 2 [] [] pkg'
199199 hash = printSHA256 $ digestString (digestByName "sha256") hpackOutput
200200 case parseGenericPackageDescription hpackOutput of