import Data.Foldable (find)
import Data.Maybe (isJust)
import Control.Monad (join)
firstJust = join . find isJust
Usage:
> firstJust [Nothing, Just 1, Nothing, Just 2]
Just 1
> firstJust [Nothing, Nothing]
Nothing
ZhekaKozlov
- reputation score 40264
- 20 gold badges
- 145 silver badges
- 167 bronze badges
lang-hs