@@ -216,7 +216,10 @@ hpackDirectory dir = do
216216 case mPackage of
217217 Left err -> liftIO $ hPutStrLn stderr ("*** hpack error: " ++ show err ++ ". Exiting.") >> exitFailure
218218 Right r -> do
219− let hpackOutput = encodeUtf8 $ Hpack.renderPackage [] (Hpack.decodeResultPackage r)
219+ let hpackOutput =
220+ let body = Hpack.renderPackage [] (Hpack.decodeResultPackage r)
221+ cabalVersion = Hpack.decodeResultCabalVersion r
222+ in encodeUtf8 $ cabalVersion ++ body
220223 hash = printSHA256 $ digest (digestByName "sha256") hpackOutput
221224 case runParseGenericPackageDescription "<hpack output>" hpackOutput of
222225 Left msg -> liftIO $ do