This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "snap-core".
The branch, master has been updated
via 9ad03542a5a4858d4b8841749129e65e7b889651 (commit)
from 54630146de2527cd8c294955005688c903a6a6c8 (commit)
Summary of changes:
src/Snap/Internal/Http/Types.hs | 18 ++++++++----------
1 files changed, 8 insertions(+), 10 deletions(-)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
commit 9ad03542a5a4858d4b8841749129e65e7b889651
Author: Jacob Stanley <[email protected]>
Date: Fri May 28 11:20:41 2010 +0800
Windows: Fixed compile error in formatHttpTime
diff --git a/src/Snap/Internal/Http/Types.hs b/src/Snap/Internal/Http/Types.hs
index f43b0b2..72a36a5 100644
--- a/src/Snap/Internal/Http/Types.hs
+++ b/src/Snap/Internal/Http/Types.hs
@@ -527,26 +527,24 @@ parseHttpTime :: ByteString -> IO CTime
#ifdef WIN32
-formatHttpTime = return . format . posixSecondsToUTCTime . toPOSIXTime
+formatHttpTime = return . format . toUTCTime
where
format :: UTCTime -> ByteString
format = fromStr . formatTime defaultTimeLocale "%a, %d %b %Y %X GMT"
- toPOSIXTime :: CTime -> POSIXTime
- toPOSIXTime = realToFrac
+ toUTCTime :: CTime -> UTCTime
+ toUTCTime = posixSecondsToUTCTime . realToFrac
-formatLogTime = do
- t <- utcToLocalZonedTime .
- posixSecondsToUTCTime .
- toPOSIXTime
- return $ format t
+formatLogTime ctime = do
+ t <- utcToLocalZonedTime $ toUTCTime ctime
+ return $ format t
where
format :: ZonedTime -> ByteString
format = fromStr . formatTime defaultTimeLocale "%d/%b/%Y:%H:%M:%S %z"
- toPOSIXTime :: CTime -> POSIXTime
- toPOSIXTime = realToFrac
+ toUTCTime :: CTime -> UTCTime
+ toUTCTime = posixSecondsToUTCTime . realToFrac
parseHttpTime = return . toCTime . parse . toStr
-----------------------------------------------------------------------
hooks/post-receive
--
snap-core
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
