From: sof <unknown>
Date: Sun, 12 Sep 1999 14:39:50 +0000 (+0000)
Subject: [project @ 1999-09-12 14:39:50 by sof]
X-Git-Tag: Approximately_9120_patches~5828
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=d359e63ee729d944fe18f0f409ceaed6ab2de26c;p=ghc-hetmet.git

[project @ 1999-09-12 14:39:50 by sof]
s/ZONE/get_ZONE/g
---

diff --git a/ghc/lib/std/Time.lhs b/ghc/lib/std/Time.lhs
index fb6b3fe..2eecaae 100644
--- a/ghc/lib/std/Time.lhs
+++ b/ghc/lib/std/Time.lhs
@@ -376,7 +376,7 @@ toCalendarTime (TOD (J# s# d#) psec) = do
        wday  <-  _casm_ ``%r = ((struct tm *)%0)->tm_wday;'' tm
        yday  <-  _casm_ ``%r = ((struct tm *)%0)->tm_yday;'' tm
        isdst <-  _casm_ ``%r = ((struct tm *)%0)->tm_isdst;'' tm
-       zone  <-  _ccall_ ZONE tm
+       zone  <-  _ccall_ get_ZONE tm
        tz    <-  _ccall_ GMTOFF tm
        let tzname = unpackCString zone
        return (CalendarTime (1900+year) mon mday hour min sec psec