4 import System.Directory
5 import System.Environment
13 [] -> do d <- getCurrentDirectory
14 putStr $ map forwardifySlashes d
15 _ -> do hPutStrLn stderr ("Bad args: " ++ show args)
16 hPutStrLn stderr "Usage: ghc-pwd"
19 forwardifySlashes :: Char -> Char
20 forwardifySlashes '\\' = '/'
21 forwardifySlashes c = c