Changeset 7286 for src/Main.hs

Timestamp:

10/04/05 22:57:01 (3 years ago)

Author:

autrijus

Message:

* tryIO is also used in Main.hs. My bad.

Files:

• src/Main.hs (modified) (1 diff)

src/Main.hs

@@ -263 +263 @@
     fileExists path = do
         let (p,f) = splitFileName path
-        dir <- tryIO Nothing $ fmap Just $ getDirectoryContents p
+        dir <- (fmap Just $ getDirectoryContents p) `catch` (const $ return Nothing)
         case dir of
             Just dir' -> return $ f `elem` dir'