git.iko.soy/typeable/aeson
on master help sign in
Drop unneeded CPP directives
08e9713Bryan O'Sullivan
Data/Aeson/Types/Generic.hs−8
compare with master
unifiedsplit
@@ -249,11 +249,7 @@ instance ( WriteProduct a
249 writeProduct opts mv ix lenL a
249 writeProduct opts mv ix lenL a
250 writeProduct opts mv ixR lenR b
250 writeProduct opts mv ixR lenR b
251 where
251 where
252−#if MIN_VERSION_base(4,5,0)
253 lenL = len `unsafeShiftR` 1
252 lenL = len `unsafeShiftR` 1
254−#else
255− lenL = len `shiftR` 1
256−#endif
257 lenR = len - lenL
253 lenR = len - lenL
258 ixR = ix + lenL
254 ixR = ix + lenL
259 {-# INLINE writeProduct #-}
255 {-# INLINE writeProduct #-}
@@ -527,11 +523,7 @@ instance (FromProduct a, FromProduct b) => FromProduct (a :*: b) where
527 (:*:) <$> parseProduct opts arr ix lenL
523 (:*:) <$> parseProduct opts arr ix lenL
528 <*> parseProduct opts arr ixR lenR
524 <*> parseProduct opts arr ixR lenR
529 where
525 where
530−#if MIN_VERSION_base(4,5,0)
531 lenL = len `unsafeShiftR` 1
526 lenL = len `unsafeShiftR` 1
532−#else
533− lenL = len `shiftR` 1
534−#endif
535 ixR = ix + lenL
527 ixR = ix + lenL
536 lenR = len - lenL
528 lenR = len - lenL
537 {-# INLINE parseProduct #-}
529 {-# INLINE parseProduct #-}