testsuite/tests/ghc-regress/rename/prog006/pwd.hs


1
2
3
4
5
6
7
8
9
10
11
12


module Main where

import System.Directory
import System.Environment

main :: IO ()
main = do d <- getCurrentDirectory
          putStr $ concatMap f d
    where f '\\' = "/"
          f c    = [c]