@@ -203,7 +203,10 @@ encodeUtf8 = T.encodeUtf8 . T.pack
203203
204204hpackDirectory :: FilePath -> MaybeT IO (Bool, Cabal.GenericPackageDescription)
205205hpackDirectory dir = do
206− mPackage <- liftIO $ Hpack.readPackageConfig Hpack.defaultDecodeOptions {Hpack.decodeOptionsTarget = dir </> Hpack.packageConfig}
206+ mPackage <- liftIO $ Hpack.readPackageConfig Hpack.defaultDecodeOptions {
207+ Hpack.decodeOptionsProgramName = Hpack.ProgramName "cabal2nix"
208+ , Hpack.decodeOptionsTarget = dir </> Hpack.packageConfig
209+ }
207210 case mPackage of
208211 Left err -> liftIO $ hPutStrLn stderr ("*** hpack error: " ++ show err ++ ". Exiting.") >> exitFailure
209212 Right r -> do