HaskellのStack環境で、ソースや実行形式ファイルのパスを得る方法が知りたい

Question

Stack環境で管理・実行してるソースファイルか実行形式のパスをファイルのあるディレクトリや他のディレクトリから実行していても得られる方法が知りたいのですが、正しいパスが得られません（パスは通しています）。
コンパイルした実行ファイルのときは取得できるようですが、
ghciやrunghc経由で使うとghc自体や呼び出した側のパスが入ってしまったりします。解決策が分かる方がいらっしゃいましたら回答いただければ幸いです。

環境:
macOS Catalina
terminal
zsh
stack version 2.1.3
ghc 8.8.2

#! /usr/local/bin/stack runghc
-- [したいこと]
-- foo/source.hs   <-- ソースのある場所
-- foo/source      <-- コンパイルした実行形式
--
-- bar/  <-- カレントディレクトリがfoo/でなくても実行したい
-- 
-- source実行時にパス foo/  が知りたい.

-- [問題]
-- stack 環境下だと正確なパスが取得できない。
-- （ghcがあるパス等になってしまう）
--
 
-- [試したこと]
-- getExecutablePath と FindBin　のgetProgPathの２通りで試してみた 
--                 

import System.Environment         -- getExecutablePath
import System.Environment.FindBin -- getProgPath

main = do

    -- case 1
    putStrLn "case 1:getExecutablePath"
    path1 <- getExecutablePath
    putStrLn path1

    -- case 2
    putStrLn "case 2:getProgPath"
    path2 <- getProgPath
    putStrLn path2

Answer 1

getExecutablePath はともかく、 getProgPath がカレントディレクトリーを返してしまうのは明らかにバグなので、残念ながらここで質問するより https://github.com/audreyt/findbin に報告するか、直すかしかなさそうですね...
しかしもう何年も更新されていないようなので直してもらえる可能性も低いですが...

面倒ではありますが、単純にstack exec ghcでビルドして実行ファイルとして実行する運用に切り替えた方が確実な気はします。

Comments

[keystone]

回答ありがとうございました。

>面倒ではありますが、単純にstack exec ghcでビルドして実行ファイルとして実行する運用に切り替えた方が確実な気はします。

とりあえずその方向でやろうと思います。