Remove an unnecessary fromIntegral ghc-darcs-git-switchover
authorIan Lynagh <igloo@earth.li>
Sat, 20 Nov 2010 19:20:28 +0000 (19:20 +0000)
committerIan Lynagh <igloo@earth.li>
Sat, 20 Nov 2010 19:20:28 +0000 (19:20 +0000)
System/Time.hsc

index 70ec750..663e875 100644 (file)
@@ -405,7 +405,7 @@ gmtoff x = do
    --
    -- This module assumes the interpretation of tm_gmtoff, i.e., offsets
    -- are > 0 East of the Prime Meridian, so flip the sign.
-  return (- (if dst then (fromIntegral tz - 3600) else tz))
+  return (- (if dst then tz - 3600 else tz))
 # endif /* ! HAVE_DECL_ALTZONE */
 #endif  /* ! HAVE_TM_ZONE */
 #endif /* ! __HUGS__ */