Comments only [skip ci]
authorThomas Miedema <thomasmiedema@gmail.com>
Sat, 4 Jul 2015 09:57:44 +0000 (11:57 +0200)
committerThomas Miedema <thomasmiedema@gmail.com>
Sat, 4 Jul 2015 13:49:10 +0000 (15:49 +0200)
Follow up to 124f3999d78d8ef6b093e4f1bb1dcef87e4283da.

ghc/InteractiveUI.hs

index d392327..3912198 100644 (file)
@@ -597,6 +597,10 @@ nextInputLine show_prompt is_tty
 checkFileAndDirPerms :: FilePath -> IO Bool
 checkFileAndDirPerms file = do
   file_ok <- checkPerms file
+  -- Do not check dir perms when .ghci doesn't exist, otherwise GHCi will
+  -- print some confusing and useless warnings in some cases (e.g. in
+  -- travis). Note that we can't add a test for this, as all ghci tests should
+  -- run with -ignore-dot-ghci, which means we never get here.
   if file_ok then checkPerms (getDirectory file) else return False
   where
   getDirectory f = case takeDirectory f of