Rename pwd to ghc-pwd

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

diff --git a/utils/pwd/pwd.hs b/utils/pwd/pwd.hs
deleted file mode 100644 (file)
index 6949416..0000000
--- a/utils/pwd/pwd.hs
+++ /dev/null
@@ -1,22 +0,0 @@
-
-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: pwd"
-                exitFailure
-
-forwardifySlashes :: Char -> Char
-forwardifySlashes '\\' = '/'
-forwardifySlashes c = c
-