[htoolkit-cvs] HSQL/src HSQL.hsc,1.15,1.16

[<kr_...@us...>]

Update of /cvsroot/htoolkit/HSQL/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31742/src

Modified Files:
	HSQL.hsc 
Log Message:
GHC-6.3 compatibility


Index: HSQL.hsc
===================================================================
RCS file: /cvsroot/htoolkit/HSQL/src/HSQL.hsc,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** HSQL.hsc	11 Jun 2004 09:38:04 -0000	1.15
--- HSQL.hsc	3 Nov 2004 06:15:16 -0000	1.16
***************
*** 295,299 ****
--- 295,303 ----
  			(#poke struct tm,tm_isdst) p_tm	(-1 :: CInt)
  			t <- mktime p_tm
+ #if __GLASGOW_HASKELL__ >= 603
+ 			return (TOD (fromIntegral (fromEnum t) + fromIntegral (tz-currTZ)) 0)
+ #else
  			return (TOD (fromIntegral t + fromIntegral (tz-currTZ)) 0)
+ #endif
  foreign import ccall unsafe mktime :: Ptr () -> IO CTime