Hi,
I have this code:
class (Show a) => HVFSStat a where
...
vModificationTime :: a -> EpochTime
...
class (Show a) => HVFS a where
...
vGetModificationTime :: a -> FilePath -> IO ClockTime
...
vGetModificationTime fs fp =
do s <- vGetFileStatus fs fp
return $ TOD (fromIntegral (withStat s vModificationTime)) 0
This works fine in Hugs 200311, but in Hugs 20050308, I get:
ERROR "/home/jgoerzen/tree/projects/missingh/MissingH/IO/HVFS.hs":198 -
Implementation of vGetModificationTime requires extra context
*** Expected type : HVFS a => a -> FilePath -> IO ClockTime
*** Missing context : Integral CTime
I can't figure out what's going on; the type of the expression
(withStat s vModificationTime) is EpochTime, and I don't understand why
Hugs would have decided to break this code.
Thanks,
John
_______________________________________________
Haskell-Cafe mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/haskell-cafe
