elemIndexJust op = fromJust . elemIndex op
findIndexJust op = fromJust . findIndex op
findJust op = fromJust . find op
>>> fromJust (Just 1) 1
>>> 2 * (fromJust (Just 10)) 20
>>> 2 * (fromJust Nothing) *** Exception: Maybe.fromJust: Nothing
>>> isJust (Just 3) True
>>> isJust (Just ()) True
>>> isJust Nothing False
>>> isJust (Just Nothing) True
lookupJust key = fromJust . lookup key