ab5f9c9 · typeable/cabal2nix

19import Distribution.PackageDescription.Parse as Cabal

20import Distribution.Text ( simpleParse, display )

21import Distribution.Version

22−import qualified Hpack.Run as Hpack

22+import qualified Hpack.Render as Hpack

23import qualified Hpack.Config as Hpack

24import OpenSSL.Digest ( digestString, digestByName )

25import System.Directory ( doesDirectoryExist, doesFileExist, createDirectoryIfMissing, getHomeDirectory, getDirectoryContents )

191

192hpackDirectory :: FilePath -> MaybeT IO (Bool, Cabal.GenericPackageDescription)

193hpackDirectory dir = do

194− mPackage <- liftIO $ Hpack.readPackageConfig "" $ dir </> "package.yaml"

194+ mPackage <- liftIO $ Hpack.readPackageConfig Hpack.defaultDecodeOptions {Hpack.decodeOptionsTarget = dir </> Hpack.packageConfig}

195 case mPackage of

196 Left err -> liftIO $ hPutStrLn stderr ("*** hpack error: " ++ show err ++ ". Exiting.") >> exitFailure

197− Right (pkg', _) -> do

197+ Right (Hpack.DecodeResult pkg' _ _) -> do

198− let hpackOutput = Hpack.renderPackage Hpack.defaultRenderSettings 2 [] [] pkg'

198+ let hpackOutput = Hpack.renderPackage [] pkg'

199 hash = printSHA256 $ digestString (digestByName "sha256") hpackOutput

200 case parseGenericPackageDescription hpackOutput of

201 ParseFailed perr -> liftIO $ do