@@ -202,8 +202,8 @@ hpackDirectory dir = do
202 mPackage <- liftIO $ Hpack.readPackageConfig Hpack.defaultDecodeOptions {Hpack.decodeOptionsTarget = dir </> Hpack.packageConfig}
202 mPackage <- liftIO $ Hpack.readPackageConfig Hpack.defaultDecodeOptions {Hpack.decodeOptionsTarget = dir </> Hpack.packageConfig}
203 case mPackage of
203 case mPackage of
204 Left err -> liftIO $ hPutStrLn stderr ("*** hpack error: " ++ show err ++ ". Exiting.") >> exitFailure
204 Left err -> liftIO $ hPutStrLn stderr ("*** hpack error: " ++ show err ++ ". Exiting.") >> exitFailure
205− Right (Hpack.DecodeResult pkg' _ _) -> do
205+ Right r -> do
206− let hpackOutput = encodeUtf8 $ Hpack.renderPackage [] pkg'
206+ let hpackOutput = encodeUtf8 $ Hpack.renderPackage [] (Hpack.decodeResultPackage r)
207 hash = printSHA256 $ digest (digestByName "sha256") hpackOutput
207 hash = printSHA256 $ digest (digestByName "sha256") hpackOutput
208 case runParseGenericPackageDescription "<hpack output>" hpackOutput of
208 case runParseGenericPackageDescription "<hpack output>" hpackOutput of
209 Left msg -> liftIO $ do
209 Left msg -> liftIO $ do