Skip to content

Commit

Permalink
Fix build on old GHCs
Browse files Browse the repository at this point in the history
  • Loading branch information
RyanGlScott committed Jun 22, 2016
1 parent dac7073 commit ba48787
Showing 1 changed file with 1 addition and 0 deletions.
1 change: 1 addition & 0 deletions src/Data/Bifoldable.hs
Expand Up @@ -457,6 +457,7 @@ bifind p = getFirst . bifoldMap finder finder
(#.) :: Coercible b c => (b -> c) -> (a -> b) -> (a -> c)
(#.) _f = coerce
#else
(#.) :: (b -> c) -> (a -> b) -> (a -> c)
(#.) _f = unsafeCoerce
#endif
{-# INLINE (#.) #-}
Expand Down

0 comments on commit ba48787

Please sign in to comment.