[commit: packages/old-time] master: Suppress warnings. (f541709)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/old-time

On branch  : master
Link       : http://git.haskell.org/packages/old-time.git/commitdiff/f541709c054551b8e06dc8d7c8947e90cc115e48

>---------------------------------------------------------------

commit f541709c054551b8e06dc8d7c8947e90cc115e48
Author: Austin Seipp <austin at well-typed.com>
Date:   Wed Nov 20 22:51:47 2013 -0600

    Suppress warnings.
    
    throwAwayReturnPointer being unused was tripping -Werror on my windows
    test build, so just underscore-ify the name to avoid it.
    
    Signed-off-by: Austin Seipp <austin at well-typed.com>


>---------------------------------------------------------------

f541709c054551b8e06dc8d7c8947e90cc115e48
 System/Time.hsc |   12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/System/Time.hsc b/System/Time.hsc
index 74e245c..8074783 100644
--- a/System/Time.hsc
+++ b/System/Time.hsc
@@ -1,8 +1,6 @@
 #if __GLASGOW_HASKELL__ >= 701
 {-# LANGUAGE Trustworthy #-}
 #endif
--- XXX with some combinations of #defines we get warnings, e.g.
--- Warning: Defined but not used: `throwAwayReturnPointer'
 
 -----------------------------------------------------------------------------
 -- |
@@ -421,7 +419,7 @@ toCalendarTime :: ClockTime -> IO CalendarTime
 #ifdef __HUGS__
 toCalendarTime =  toCalTime False
 #elif HAVE_LOCALTIME_R
-toCalendarTime =  clockToCalendarTime_reentrant (throwAwayReturnPointer localtime_r) False
+toCalendarTime =  clockToCalendarTime_reentrant (_throwAwayReturnPointer localtime_r) False
 #else
 toCalendarTime =  clockToCalendarTime_static localtime False
 #endif
@@ -433,7 +431,7 @@ toUTCTime :: ClockTime -> CalendarTime
 #ifdef __HUGS__
 toUTCTime      =  unsafePerformIO . toCalTime True
 #elif HAVE_GMTIME_R
-toUTCTime      =  unsafePerformIO . clockToCalendarTime_reentrant (throwAwayReturnPointer gmtime_r) True
+toUTCTime      =  unsafePerformIO . clockToCalendarTime_reentrant (_throwAwayReturnPointer gmtime_r) True
 #else
 toUTCTime      =  unsafePerformIO . clockToCalendarTime_static gmtime True
 #endif
@@ -462,9 +460,9 @@ toCalTime toUTC (TOD s psecs)
                         , ctIsDST=not toUTC && (isdst/=0)
                         })
 #else /* ! __HUGS__ */
-throwAwayReturnPointer :: (Ptr CTime -> Ptr CTm -> IO (Ptr CTm))
-                       -> (Ptr CTime -> Ptr CTm -> IO (       ))
-throwAwayReturnPointer fun x y = fun x y >> return ()
+_throwAwayReturnPointer :: (Ptr CTime -> Ptr CTm -> IO (Ptr CTm))
+                        -> (Ptr CTime -> Ptr CTm -> IO (       ))
+_throwAwayReturnPointer fun x y = fun x y >> return ()
 
 #if !HAVE_LOCALTIME_R || !HAVE_GMTIME_R
 clockToCalendarTime_static :: (Ptr CTime -> IO (Ptr CTm)) -> Bool -> ClockTime