Check executability in exec lookup (#2489)

Fix #2489. Nothing guarantees that files in the PATH are executable, and
Unix utilities handle this just fine.

src/System/Process/Read.hs

@@ -345,7 +345,8 @@ findExecutable eo name = liftIO $ do
                         testFPs [] = loop dirs
                         testFPs (fp:fps) = do
                             exists <- D.doesFileExist fp
-                            if exists
+                            existsExec <- if exists then liftM D.executable $ D.getPermissions fp else return False
+                            if existsExec
                                 then do
                                     fp' <- D.makeAbsolute fp >>= parseAbsFile
                                     return $ return fp'