From d359e63ee729d944fe18f0f409ceaed6ab2de26c Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Sun, 12 Sep 1999 14:39:50 +0000
Subject: [PATCH] [project @ 1999-09-12 14:39:50 by sof] s/ZONE/get_ZONE/g
---
ghc/lib/std/Time.lhs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/ghc/lib/std/Time.lhs b/ghc/lib/std/Time.lhs
index fb6b3fef469e..2eecaae73095 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
--
GitLab