(a -> b) -> (a, a) -> (b, b) +text

firstf :: (a -> c) -> Maybe (a, b) -> Maybe (c, b)
text Data.Text.Internal
Apply a function to the first element of an optional pair.