Ruby's tap in Haskell

tap.hs

import Data.Functor

tap :: Functor f => a -> (a -> f b) -> f a
x `tap` action = x <$ action x

-- Only standard output
-- >>> print 1
-- 1

-- Standard output and return value
-- >>> 1 `tap` print
-- 1
-- 1