old-time 1.1.0.0 → 1.1.0.1
raw patch · 3 files changed
+13/−4 lines, 3 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- System/Time.hsc +11/−2
- include/HsTime.h +1/−1
- old-time.cabal +1/−1
System/Time.hsc view
@@ -250,11 +250,20 @@ return (TOD (fromIntegral sec) ((fromIntegral usec) * 1000000)) #elif HAVE_GETTIMEOFDAY++# if defined(mingw32_HOST_OS)+type Timeval_tv_sec = CLong+type Timeval_tv_usec = CLong+# else+type Timeval_tv_sec = CTime+type Timeval_tv_usec = CSUSeconds+# endif+ getClockTime = do allocaBytes (#const sizeof(struct timeval)) $ \ p_timeval -> do throwErrnoIfMinus1_ "getClockTime" $ gettimeofday p_timeval nullPtr- sec <- (#peek struct timeval,tv_sec) p_timeval :: IO CTime- usec <- (#peek struct timeval,tv_usec) p_timeval :: IO CSUSeconds+ sec <- (#peek struct timeval,tv_sec) p_timeval :: IO Timeval_tv_sec+ usec <- (#peek struct timeval,tv_usec) p_timeval :: IO Timeval_tv_usec return (TOD (realToInteger sec) ((realToInteger usec) * 1000000)) #elif HAVE_FTIME
include/HsTime.h view
@@ -27,7 +27,7 @@ #if HAVE_TIME_H #include <time.h> #endif-#if HAVE_SYS_TIMEB_H+#if HAVE_SYS_TIMEB_H && !defined(__FreeBSD__) #include <sys/timeb.h> #endif
old-time.cabal view
@@ -1,5 +1,5 @@ name: old-time-version: 1.1.0.0+version: 1.1.0.1 license: BSD3 license-file: LICENSE maintainer: libraries@haskell.org