lift an accessor function a -> b to a "q" (i.e., a -> Maybe b)

name : Maybe String
name =
    qqq .user .profile (j .name) <|
        Just
            { user =
                Just
                    { profile = { name = "John" } }
            }

for when you need to scooch right past an error (becuase you can't dip it in ranch)

toLastSignInSuccess : Int -> Maybe Time.Posix
toLastSignInSuccess i =
    qqq .profile (ope .signInHistory) List.head <|
        Dict.get i users

for when you need to schooch right past a success

-- Get the error message if sign in failed
qq .profile (nope .signInHistory) user == Just "rate limited"

it's literally just Maybe.andThen

apply two "and-then-able" functions in order to a Maybe a

apply three "and-then-able" functions in order to a Maybe a

apply four "and-then-able" functions in order to a Maybe a

apply five "and-then-able" functions in order to a Maybe a

apply six "and-then-able" functions in order to a Maybe a

apply seven "and-then-able" functions in order to a Maybe a

apply eight "and-then-able" functions in order to a Maybe a

apply nine "and-then-able" functions in order to a Maybe a

apply ten "and-then-able" functions in order to a Maybe a

apply eleven "and-then-able" functions in order to a Maybe a

same as qqqqqq, just easier to read

same as qqqqqqq, just easier to read

same as qqqqqqqq, just easier to read

same as qqqqqqqqq, just easier to read

same as qqqqqqqqqq, just easier to read

same as qqqqqqqqqqq, just easier to read