From d575902c77c2697cc03e28a0f3e81fffbae7c7b6 Mon Sep 17 00:00:00 2001
From: Dylan Simon <dylan@dylex.net>
Date: Fri, 25 Jan 2013 18:59:54 -0800
Subject: [PATCH] use throwErrnoIfMinus1 gettimeofday for consistency in error
handling
Ignore-this: fc81b9dd998c4e7c01a58d3e3a104cb8
darcs-hash:20130126025954-56c21-c94b312b53512f2202f5012b2abab5b2b8f4c05d
---
Data/Time/Clock/CTimeval.hs | 6 ++----
1 file changed, 2 insertions(+), 4 deletions(-)
diff --git a/Data/Time/Clock/CTimeval.hs b/Data/Time/Clock/CTimeval.hs
index 5e0ffdf..b0d8920 100644
--- a/Data/Time/Clock/CTimeval.hs
+++ b/Data/Time/Clock/CTimeval.hs
@@ -25,10 +25,8 @@ foreign import ccall unsafe "time.h gettimeofday" gettimeofday :: Ptr CTimeval -
-- | Get the current POSIX time from the system clock.
getCTimeval :: IO CTimeval
getCTimeval = with (MkCTimeval 0 0) (\ptval -> do
- result <- gettimeofday ptval nullPtr
- if (result == 0)
- then peek ptval
- else fail ("error in gettimeofday: " ++ (show result))
+ throwErrnoIfMinus1_ "gettimeofday" $ gettimeofday ptval nullPtr
+ peek ptval
)
#endif
--
GitLab