[Haskell-cafe] How to get a file path to the program invoked?

[dokondr]

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 at 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 at 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++"/"
>>
>>
>>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://www.haskell.org/pipermail/haskell-cafe/attachments/20111205/39b957a2/attachment.htm>