Remove commented-out code

corsis · Apr 30, 2019 · 37b366c · 37b366c
1 parent 26bf9a7
commit 37b366c
Showing 1 changed file with 0 additions and 5 deletions.
diff --git a/System/Clock.hsc b/System/Clock.hsc
@@ -245,11 +245,6 @@ instance Num TimeSpec where
                                                ysi     =   toInteger  ys
                                                xni     =   toInteger  xn
                                                yni     =   toInteger  yn
---     let xsi = toInteger xs    -- convert to arbitraty Integer type to avoid int overflow
---         xni = toInteger xn
---         ysi = toInteger ys
---           yni = toInteger yn    -- seconds                 -- nanoseconds
---       in normalize $! TimeSpec (fromInteger $! xsi * ysi) (fromInteger $! (xni * yni + (xni * ysi + xsi * yni) * s2ns) `div` s2ns)
 
   negate (TimeSpec xs xn) = normalize $! TimeSpec (negate xs) (negate xn)
   abs    (normalize -> TimeSpec xs xn) | xs == 0   = normalize $! TimeSpec 0 xn