blob: baf2f2b656077900b4a8a3367424a057b72bf8f5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
import Control.Monad
import System.FilePath
import System.Directory
wd1 <- getCurrentDirectory
setCurrentDirectory ".."
wd2 <- getCurrentDirectory
wd1_parent <- canonicalizePath (wd1 </> "..")
wd2' <- canonicalizePath wd2
unless (wd1_parent `equalFilePath` wd2') $ mapM_ print [wd1, wd1_parent, wd2, wd2']
|
