From: sof <unknown>
Date: Thu, 14 Feb 2002 07:32:17 +0000 (+0000)
Subject: [project @ 2002-02-14 07:32:17 by sof]
X-Git-Tag: nhc98-1-18-release~1118
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=ec0ec07bd5f396c9676772d8a8c84b9eec8e24a1;p=haskell-directory.git

[project @ 2002-02-14 07:32:17 by sof]
mingw: support timezone and tzname (as before)
---

diff --git a/System/Time.hsc b/System/Time.hsc
index cd26453..7cdbd05 100644
--- a/System/Time.hsc
+++ b/System/Time.hsc
@@ -8,7 +8,7 @@
 -- Stability   :  provisional
 -- Portability :  portable
 --
--- $Id: Time.hsc,v 1.8 2002/02/11 12:29:27 simonmar Exp $
+-- $Id: Time.hsc,v 1.9 2002/02/14 07:32:17 sof Exp $
 --
 -- The standard Time library.
 --
@@ -319,8 +319,8 @@ gmtoff x    = (#peek struct tm,tm_gmtoff) x
 #  ifndef mingw32_TARGET_OS
 foreign label tzname :: Ptr (Ptr CChar)
 #  else
-foreign import "ghcTimezone" unsafe timezone :: Ptr CLong
-foreign import "ghcTzname" unsafe tzname :: Ptr (Ptr CChar)
+foreign import "__hscore_timezone" unsafe timezone :: Ptr CLong
+foreign import "__hscore_tzname" unsafe tzname :: Ptr (Ptr CChar)
 #  endif
 zone x = do 
   dst <- (#peek struct tm,tm_isdst) x