X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=ImplantFile.hs;fp=ImplantFile.hs;h=22fafeaa5acd35d413c827701265aead3a0d2349;hp=26be80e73e7dcd109160dcfe68be812ff4c66af2;hb=4ff7f4b48f372e1cbea63873c5604ee3b4b56d09;hpb=5fc2e72c153ade03b16071c66a08a316295bb42a

diff --git a/ImplantFile.hs b/ImplantFile.hs
index 26be80e..22fafea 100644
--- a/ImplantFile.hs
+++ b/ImplantFile.hs
@@ -393,7 +393,7 @@ getMIMEType opts srcFile
 getLastModified :: FilePath -> IO UTCTime
 getLastModified "-"   = getCurrentTime
 getLastModified fpath = getFileStatus fpath
-                        >>= return . posixSecondsToUTCTime . toEnum . fromEnum . modificationTime
+                        >>= return . posixSecondsToUTCTime . fromRational . toRational . modificationTime
 
 
 getETag :: [CmdOpt] -> Lazy.ByteString -> IO String