S.apFirst and S.apSecond

Does it make sense to provide the following two functions?

S.maybeFirst returns the first Maybe value only if both arguments are Just, otherwise return Nothing.

S.maybeFirst :: Maybe a -> Maybe b -> Maybe a
> S.maybeFirst(S.Nothing(), S.Nothing())
Nothing()

> S.maybeFirst(S.Just(1), S.Nothing())
Nothing()

> S.maybeFirst(S.Just(1), S.Just('2'))
Just(1)

S.maybeSecond returns the second Maybe value only if both arguments are Just, otherwise return Nothing.

S.maybeSecond :: Maybe a -> Maybe b -> Maybe b
> S.maybeSecond(S.Nothing(), S.Nothing())
Nothing()

> S.maybeSecond(S.Just(1), S.Nothing())
Nothing()

> S.maybeSecond(S.Just(1), S.Just('2'))
Just('2')

Or the above functions can be made by composing existing sanctuary functions? Please advice 😃

[safareli]

something like this shuold do the trick

const maybeFirst = first = lift2(a => _ => a)
const maybeSecond = second = lift2(_ => a => a)

[safareli]

apFirst apSecond sounds good, we could also add same for ‘>>’ and ‘<<’ as chain… Maybe they could be decleared in s-type-classes?