>>> :kind! Maybe (Fst '(Int, Text)) Maybe (Fst '(Int, Text)) :: * = Maybe Int
>>> :kind! Maybe (Fst (Int, Text)) Maybe (Fst (Int, Text)) :: * = Maybe Int
>>> toFst length [3, 1, 0, 2] (4,[3,1,0,2]) >>> toFst (+5) 10 (15,10)
>>> traverseToFst (Just . (+1)) 10 Just (11,10) >>> traverseToFst (const Nothing) 10 Nothing