如何确定正在运行的Haskell脚本或应用程序所在的目录？

import System.Directory

main :: IO ()
main = do
  currentDir <- getCurrentDirectory
  putStrLn $ "当前目录: " ++ currentDir

import System.Directory
import System.FilePath

main :: IO ()
main = do
  executablePath <- getExecutablePath
  let dir = takeDirectory executablePath
  putStrLn $ "可执行文件目录: " ++ dir

import System.Directory
import System.FilePath

main :: IO ()
main = do
  appDataDir <- getAppUserDataDirectory "MyApp"
  createDirectoryIfMissing True appDataDir
  putStrLn $ "应用程序数据目录: " ++ appDataDir