From: Ian Lynagh <igloo@earth.li>
Date: Sat, 28 Aug 2010 22:58:27 +0000 (+0000)
Subject: Disambiguate a function name
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1d227d655c7391143baa7ce777be8103d5426e82;p=ghc-hetmet.git

Disambiguate a function name
---

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