hls-tactics-plugin-1.8.0.0: old/test/golden/FmapJoin.expected.hs

fJoin :: (Monad m, Monad f) => f (m (m a)) -> f (m a)
fJoin = fmap (\ m -> m >>= id)