summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
e0327bf)
Don't use doesFileExist on mingw32 as a replacement for checkPerms -
the argument might be a directory, in which case the result will be
False. Just return True instead - if the file/directory doesn't
exist, the open operation will fail later.
{-# OPTIONS -#include "Linker.h" -#include "SchedAPI.h" #-}
-----------------------------------------------------------------------------
{-# OPTIONS -#include "Linker.h" -#include "SchedAPI.h" #-}
-----------------------------------------------------------------------------
--- $Id: InteractiveUI.hs,v 1.119 2002/04/11 08:39:27 simonmar Exp $
+-- $Id: InteractiveUI.hs,v 1.120 2002/04/18 11:27:59 simonmar Exp $
--
-- GHC Interactive User Interface
--
--
-- GHC Interactive User Interface
--
checkPerms :: String -> IO Bool
checkPerms name =
checkPerms :: String -> IO Bool
checkPerms name =
- DriverUtil.handle (\_ -> return False) $ do
+ DriverUtil.handle (\_ -> return False) $ do
st <- getFileStatus name
me <- getRealUserID
if fileOwner st /= me then do
st <- getFileStatus name
me <- getRealUserID
if fileOwner st /= me then do