Skip to content

Commit

Permalink
Move INLINE within #if pragma
Browse files Browse the repository at this point in the history
  • Loading branch information
RyanGlScott committed Dec 22, 2016
1 parent e54da2e commit d4d467e
Showing 1 changed file with 4 additions and 4 deletions.
8 changes: 4 additions & 4 deletions src/Control/Lens/Iso.hs
Expand Up @@ -604,11 +604,11 @@ seconding p = withIso p $ \ sa bt -> iso (second sa) (second bt)
--
-- @since 4.13
coerced :: forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
#if __GLASGOW_HASKELL__ >= 710
# if __GLASGOW_HASKELL__ >= 710
coerced l = rmap (fmap coerce') l .# coerce
#else
# else
coerced l = case sym Coercion :: Coercion a s of
Coercion -> rmap (fmap coerce') l .# coerce
#endif
#endif
# endif
{-# INLINE coerced #-}
#endif

0 comments on commit d4d467e

Please sign in to comment.