X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2FInteractiveUI.hs;h=24079bb49bff78c23bbe83caa6394bbf3ac9e7e7;hb=3ebd889775714f8ad3bae8d9cc7a4790ef04614f;hp=9a578df4c155db4ebf89640b7b0ec174198e655e;hpb=b85bac5ed74d735b3bac7a56e0080470d8fb0cdb;p=ghc-hetmet.git

diff --git a/ghc/InteractiveUI.hs b/ghc/InteractiveUI.hs
index 9a578df..24079bb 100644
--- a/ghc/InteractiveUI.hs
+++ b/ghc/InteractiveUI.hs
@@ -497,7 +497,7 @@ checkPerms name =
    	putStrLn $ "WARNING: " ++ name ++ " is owned by someone else, IGNORING!"
    	return False
       else do
-   	let mode =  fileMode st
+   	let mode =  System.Posix.fileMode st
    	if (groupWriteMode == (mode `intersectFileModes` groupWriteMode))
    	   || (otherWriteMode == (mode `intersectFileModes` otherWriteMode)) 
    	   then do