@@ -249,11 +249,7 @@ instance ( WriteProduct a
249249 writeProduct opts mv ix lenL a
250250 writeProduct opts mv ixR lenR b
251251 where
252−#if MIN_VERSION_base(4,5,0)
253252 lenL = len `unsafeShiftR` 1
254−#else
255− lenL = len `shiftR` 1
256−#endif
257253 lenR = len - lenL
258254 ixR = ix + lenL
259255 {-# INLINE writeProduct #-}
@@ -527,11 +523,7 @@ instance (FromProduct a, FromProduct b) => FromProduct (a :*: b) where
527523 (:*:) <$> parseProduct opts arr ix lenL
528524 <*> parseProduct opts arr ixR lenR
529525 where
530−#if MIN_VERSION_base(4,5,0)
531526 lenL = len `unsafeShiftR` 1
532−#else
533− lenL = len `shiftR` 1
534−#endif
535527 ixR = ix + lenL
536528 lenR = len - lenL
537529 {-# INLINE parseProduct #-}