Uninformative error message from getModificationTime

[Simon Marlow]

> If I run the program
> 
>     main = print =<< readFile "god"
> 
> and god doesn't exist, I get the following informative error message
> 
>     Fail: does not exist
>     Action: openFile
>     Reason: No such file or directory
>     File: god
> 
> However, if I run the program
> 
>     import Directory
>     main = print =<< getModificationTime "god"
> 
> I get the message
> 
>     Fail: does not exist
>     Action: withFileStatus
>     Reason: No such file or directory

Fixed, thanks.

Simon