Rename pwd to ghc-pwd

[ghc-hetmet.git] / utils / ghc-pwd / ghc-pwd.hs

diff --git a/utils/ghc-pwd/ghc-pwd.hs b/utils/ghc-pwd/ghc-pwd.hs
new file mode 100644 (file)
index 0000000..91a5606
--- /dev/null
+++ b/utils/ghc-pwd/ghc-pwd.hs
@@ -0,0 +1,22 @@
+
+module Main where
+
+import System.Directory
+import System.Environment
+import System.Exit
+import System.IO
+
+main :: IO ()
+main = do
+    args <- getArgs
+    case args of
+        [] -> do d <- getCurrentDirectory
+                 putStr $ map forwardifySlashes d
+        _ -> do hPutStrLn stderr ("Bad args: " ++ show args)
+                hPutStrLn stderr "Usage: ghc-pwd"
+                exitFailure
+
+forwardifySlashes :: Char -> Char
+forwardifySlashes '\\' = '/'
+forwardifySlashes c = c
+