diff options
Diffstat (limited to 'compiler/GHC/Utils/Misc.hs')
| -rw-r--r-- | compiler/GHC/Utils/Misc.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Utils/Misc.hs b/compiler/GHC/Utils/Misc.hs index 7436487739..07d4b721ff 100644 --- a/compiler/GHC/Utils/Misc.hs +++ b/compiler/GHC/Utils/Misc.hs @@ -1281,7 +1281,7 @@ getModificationUTCTime = getModificationTime -- check existence & modification time at the same time modificationTimeIfExists :: FilePath -> IO (Maybe UTCTime) -modificationTimeIfExists f = do +modificationTimeIfExists f = (do t <- getModificationUTCTime f; return (Just t)) `catchIO` \e -> if isDoesNotExistError e then return Nothing |