Balazs, thanks for your comments!
The first comment works just fine.
With </> operator I get this:

Main System.Environment.Executable System.FilePath> "/abc" </> "/"
"/"

Instead of getting "/abc/" I get "/". What am I doing wrong?

On Mon, Dec 5, 2011 at 6:03 PM, Balazs Komuves <bkomuves@gmail.com> wrote:

Two small comments:

1) This should work on Windows too, if you just leave out the word "Posix" from the source:
import System.FilePath (splitFileName)

2) In general when dealing with paths, use the </> operator (from System.FilePath)
instead of ++ "/" ++

Balazs


On Mon, Dec 5, 2011 at 1:44 PM, dokondr <dokondr@gmail.com> wrote:
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++"/"