This is how I finally solved this problem for POSIX complaint system:
--
-- TestRun
--
module Main where
import System.Cmd (rawSystem)
import System.Directory (getCurrentDirectory)
import System.Environment.Executable (ScriptPath(..), getScriptPath)
import System.FilePath.Posix (splitFileName)
main = do
path <- getMyPath
putStrLn $ "myPath = " ++ path
let cmdLine = path ++ "args.sh"
rawSystem cmdLine ["iphone", "test-twitts.txt"]
{--
data ScriptPath Source
Constructors:
Executable FilePath it was (probably) a proper compiled executable
RunGHC FilePath it was a script run by runghc/runhaskell
Interactive we are in GHCi
--}
getMyPath = do
curDir <- getCurrentDirectory -- from System.Directory
scriptPath <- getScriptPath -- from System.Environment.Executable
let path = getMyPath' scriptPath curDir
return path
getMyPath' (Executable path) _ = fst (splitFileName path)
getMyPath' (RunGHC path) _ = fst (splitFileName path)
getMyPath' Interactive curDir = curDir++"/"
--
All the best,
Dmitri O. Kondratiev
"This is what keeps me going: discovery"
doko...@gmail.com
http://sites.google.com/site/dokondr/welcome
_______________________________________________
Haskell-Cafe mailing list
Haskell-Cafe@haskell.org
http://www.haskell.org/mailman/listinfo/haskell-cafe
